You can give the sort function a custom sorting subroutine, using the special variables $a and $b. E.g.:

@sorted = sort { length $a <=> length $b } @elements

See also perldoc -q sort