Select Code to Download

    for my $column (  unpack("a40a40", $_)  ) {
        if(  $code eq soundex( (split(/,/, $column))[0] )  ) {
...
            printf("%-25s %-8d %-5s\n", @name_list);
        }
    }