#!/usr/bin/perl
   my $iterator;
   @data_1 = (10,20,30,40,50);
   @data_2 = ('a','b','c','d','e');
   @data_3 = (-10,-20,-30,-40,-50);

   for ($field = 1; $field < 4; $field++)
   {
    $iterator = "$data_$field";
    print "iterator = $iteratorn";
    print "$iterator[0]";
   }

iterator = $data_1
   iterator = $data_2
   iterator = $data_3

iterator = $data_1
   10
   iterator = $data_2
   a
   iterator = $data_3
   -10