for my $x ( 1, 2, 11 ) {
    print  0 x (3-length($x)), $x, "\n";
}