Help for this page
my $c='aff001'; print $c++, "\n" for 0..5; __END__ ... aff004 aff005 aff006
my $c='aff998'; print $c++, "\n" for 0..5; __END__ ... afg001 afg002 afg003