Select Code to Download

foreach (@input){
        push @name_nums, $list{ $_ } if exists $list{ $_ };
#        }else{
#            push (@name_nums,$_);
        }