Select Code to Download

foreach (@input) {
       if( exists $list{ $_ } ) {
...
            push @name_names, $_;
       }
}

foreach my $input (@input ) {
     push @name_nums, ( exists $list{ $input } ? $list{ $input } : $in
+put );
...
foreach my $input ( @input ) {
     push @name_nums, ( $list{ $input } || $input );
}