for my $i ( 0 .. $#ARRAY )
    {
      print "$ARRAY[$i]\n";
    }