Perl Passe fonction et retour d'un Reference

\\ n " ; mon arr = ( « BBB » , « CCC » , « DDD ») , mon % ha = (quatre = > " eee " , cinq = > " fff " , six = > " ggg " ) ; mySub sub { print $ _ [ 0 ] , " " , $ _ [ 1 ] , " " , $ _ [ 2 ] , " " , $ _ [ 3 ] , " " , $ _ [ ,,,0],4 ] , "", $ _ [ 5 ] , "", $ _ [ 6 ] , "", $ _ [ 7 ] , "", $ _ [ 8 ] , "", $ _ [ 9 ] ;} mySub («AAA» , arr , % ha) ; print "