@a=("ab","ccc","dfje","sd","abc","zaaaa");
@b=reverse sort {length $a <=> length $b}@a;
print "@b";