sub sortsub { $a cmp $b || other_function( $a, $b ) || ... }