Perl Functie Passing en het terugkeren van een Reference

\\ n "; mijn arr = ( " bbb " , " CCC " , " ddd "); mijn % ha = ( vier = > " eee " , vijf = > " fff " , zes = > ' ggg ' ) ; sub mySub {schrijf $ _ [ 0 ] , " " , $ _ [ 1 ] , " " , $ _ [ 2 ] , " " , $ _ [ 3 ] , " " , $ _ [ ,,,0],4 ] , " " , $ _ [ 5 ] , " " , $ _ [ 6 ] , " " , $ _ [ 7 ] , " " , $ _ [ 8 ] , " " , $ _ [ 9 ] ; } mySub ( "AAA" , arr , % ha ) ; print "