Select Code to Download

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

while (<IN>) {
    if ( $_ =~ m/^{.*$/ ) {
...
        $minhash{$MIN} = undef;
    }
}

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