\\ n "; minha arr = (" bbb " , " ccc "," ddd " ); my% ha = (quatro =>" eee " , cinco =>" fff " , seis => " ggg" ); sub mySub {print $ _ [0] , "", $ _ [1] , "", $ _ [2] , "", $ _ [3] , "", $ _ [ ,,,0],4] , "", $ _ [5] , "", $ _ [6] , "", $ _ [7] , "", $ _ [8] , "", $ _ [9] ;} mySub ( " aaa" , arr , % ha); print "