Build 4-element array, each with references to another array
@words = (one, two, three, four, five, six, seven, eight, nine, ten, ); @codeNumbers = (1,2,3,4,5,6,7,8,9,10); @codeLetters = (A,B,C,D,E,F,G,H,I,J); @codes[0] = \@words; @codes[1] = \@codeNumbers; @codes[2] = \@codeLetters; @codes[3] = \@myValue; for ($index = $codes[3]->[1]->[0] ; $index <= $#{$codes[3]->[1]}; $index++){ $codeIndex = $codes[1][$index]; $codeWord = $codes[0][$codeIndex]; $codeLetter = $codes[2]->[$codes[1][$index]]; print "$codeWord\t : $codeLetter\n"; }