my %counts;

while (<IN>) {
        next unless /^{.*$/; # skip non-matching lines
        my $min = (split ',')[1]; # get the value
        $counts{substr($min,0,6)} += 1; # found another one!
}

# at this point %counts is like your %npanxxhash, but without all the temporary variables