@sorted = map { s/^\S+ // } sort map { my ( $x ) = ( /^_(\S+)/ ) ? ( $1 ) : ( /(\S+)$/ ); "$x $_" } @unsorted;