use warnings;
use strict;

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

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

##</code><code>##

abcdefghijklmnopqrstuvwxyz
S001, S002, S003, S004, S005, S006, S007, S008, S009, S010,