# the following sort routine is arbitrary,
# chosen because it behaves the way I want... sort of.
{
    local $, = " ";
    local $\ = "\n";
    print sort {
        $dict{$a}*length($a)**2 <=> $dict{$b}*length($b)**2 #||
        } grep {length$_>1} keys %dict;
}

#use Data::Dumper;
#print Dumper(\%dict);

__END__