Select Code to Download

@nar = map { # get rid of trailing number
             my $st = ( split( " ", $_ ) )[0];
...
             # return result value
             $st;
       } @arr;