#! 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

##</code><code>##

#! perl -slw
use strict;

my $id = "F00123Z";

for ( 1 .. 29 ) {
    print $id;
    if( substr( $id, -1 ) eq 'Z' ) {
        substr( $id, -1 ) = 'A';
        substr( $id, 1, -1 )++;
    }
    else {
        substr( $id, -1 ) ++;
    }
}

__END__
C:\test>junk72
F00123Z
F00124A
F00124B
F00124C
F00124D
F00124E
F00124F
F00124G
F00124H
F00124I
F00124J
F00124K
F00124L
F00124M
F00124N
F00124O
F00124P
F00124Q
F00124R
F00124S
F00124T
F00124U
F00124V
F00124W
F00124X
F00124Y
F00124Z
F00125A
F00125B