#! perl -slw
use strict;

my $id = "F00123Z";

for ( 1 .. 11 ) {
    print $id;
    substr( $id, 1, -1 )++;
}

__END__
C:\test>junk72
F00123Z
F00124Z
F00125Z
F00126Z
F00127Z
F00128Z
F00129Z
F00130Z
F00131Z
F00132Z
F00133Z