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