@a = (1,2,3);
@b = (2,4,6,7);
for $i (@a)
{
   print $b[$i];
}