\\ n " ; minun arr = ( " BBB " , " CCC " , " ddd " ) ; minun % ha = ( neljä = > " EEE " , viisi = > " FFF " , kuusi = > " ggg " ) ; sub mySub { print $ _ [ 0 ] , " " , $ _ [ 1] , " " , $ _ [ 2] , " " , $ _ [ 3] , " " , $ _ [ ,,,0],4] , " " , $ _ [ 5] , " " , $ _ [ 6] , " " , $ _ [ 7] , " " , $ _ [ 8] , " " , $ _ [ 9] ; } mySub ( " AAA" , arr , % ha ) ; print "
