perl -Mstrict -Mwarnings -E '
my @x = qw/ 123 1234567890 12345678901 /;
say sprintf("%-11s length %s", $_, length $_) for @x;
'

##</code><code>##

123         length 3
1234567890  length 10
12345678901 length 11