use strict;
my @a=(1..100);

for my $i (0..@a-1) {
  print $a[i];
}