use warnings;
use strict;

my $letter = 'a';
print $letter++ for 1 .. 26;
print "\n";

my $serial = 'S001';
printf "%s, ", $serial++ for 1 .. 10;