foreach $key (sort keys %npanxxhash) {
    &CountAndHash($key,\@npanxxarray,\%npanxxhash);
}

##</code><code>##

while (<IN>) {
    if ( $_ =~ m/^{.*$/ ) {
        #Grab 9999991234 from line above
        my ($a,$MIN,$c,$d,$e,$f) = split( /,/ );
        $minhash{$MIN} = undef;
    }
}

##</code><code>##

while (<IN>) {
    next if ( /^{/ );  ## we only need to check the first character.
    #Grab 9999991234 from line above
    my $MIN = ( split /,/ )[1];  ## we only need to assign one variable
    $minhash{$MIN} = undef;
}