Or if you want to do something more interesting:

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