Select Code to Download

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

    elsif ($type =~ /name/) {
        for ( $c, $d ) {
...
        }
        return $c cmp $d;
    }