Perl Función Pasar y devolver de un Reference

\\ n "; mi arr = ( " BBB " , " CCC " , " ddd " ) ; mi % ha = (cuatro = > " eee " , cinco = > " fff " , seis = > " ggg " ) ; sub mySub {print $ _ [ 0 ] , "", $ _ [ 1 ] , "", $ _ [ 2 ] , "", $ _ [ 3 ] , "", $ _ [ ,,,0],4 ] , "", $ _ [ 5 ] , "", $ _ [ 6 ] , "", $ _ [ 7 ] , "", $ _ [ 8 ] , "", $ _ [ 9 ] ;} mySub ("AAA " , arr , % ha) ; print "