my @in = qw/foobarbazquux boo foobarbaz foobar/;
my @out=sort {length($a) <=> length($b)} @in;
foreach (@out) {
    print "$_\n";
}