Yes - you should be using arrays for this:

   my @a = (0, 1, 4);
   my @b = (8, 2, 9);
   my @c = (1, 4, 7);

   for my $i (0 .. 2) {
      print $a[$i], $b[$i], $c[$i];
   }
[download]

-sam