@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";
}
|