my $i = "001";
my $n = "a";
my $N = "A";

for (1..10) {
  $i++; $n++; $N++;
  print "$i $n $N\n";
}