Searched refs:mycmp (Results 1 – 1 of 1) sorted by relevance
61 sub mycmp { length($b) <=> length($a) } subroutine71 for my $k (sort mycmp @list) {}