Perl Funktion Afleveringer og returnering af et Reference

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