Perl Функция передачи и Возвращаясь из Reference

\\ п "; моя arr = ( " BBB " , " CCC " , " DDD " ) ; мой % ха = ( четыре =>" эээ " , пять =>" FFF ", шесть = > " GGG " ) ; югу MySub { печати $ _ [ 0 ] , " " , $ _ [ 1 ] , " " , $ _ [ 2 ] , " " , $ _ [ 3 ] , " " , $ _ [ ,,,0],4 ] , " " , $ _ [ 5 ] , " " , $ _ [ 6 ] , " " , $ _ [ 7 ] , " " , $ _ [ 8 ] , " " , $ _ [ 9 ] ; } MySub ( " AAA " , arr ,% га) ; печать "