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