Perl Funksjon pasninger og returnering av en referanse

\\ n "; min arr = (" BBB " , " CCC "," ddd "); min % hektar = (fire = >" eee " , five = >" fff " , seks = >" GGG "); sub mySub { print $ _ [ 0 ] , "", $ _ [ 1 ] , "", $ _ [2 ] , "", $ _ [3 ] , "", $ _ [4 ] , "", $ _ [5 ] , "", $ _ [6 ] , "", $ _ [7 ] , "", $ _ [8 ] , "", $ _ [9 ] ;} mySub ( " aaa " , arr , % ha) ; print "