Perl Funktion Passing och returnera en Reference

\\ n " , min arr = ( " bbb " , " CCC " , " ddd " ) , min % hektar = ( fyra = > " eee " , fem = > " fff " , sex = > " ggg " ) , under mySub { print $ _ [ 0 ] " " , $ _ [ 1 ] , " " , $ _ [ 2 ] , " " , $ _ [ 3 ] , " " , $ _ [ ,,,0],4 ] , " " , $ _ [ 5 ] , " " , $ _ [ 6 ] , " " , $ _ [ 7 ] , " " , $ _ [ 8 ] , " " , $ _ [ 9 ] ; } mySub ( " AAA" , arr , % ha) , print "