Select Code to Download

use warnings;
use strict;
...

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

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