for my $column (  unpack("a40a40", $_)  ) {
        if(  $code eq soundex( (split(/,/, $column))[0] )  ) {
            @name_list = unpack("a18a5a7", $column);
            $seen{$name}++; 
            if(++$cntr == 1) {
                printf("\n %-24s %-9s %-5s\n ", 
                    "Last, First M", "Ext", "Rm#");
                print "=" x 40, "\n";
            }

            printf("%-25s %-8d %-5s\n", @name_list);
        }
    }