#!/usr/local/bin/perl

sub sbl { length($b) <=> length($a); } 

while (<>) {
    push(@lines, $_); # if 30 < length;
} 

print sort sbl @lines;