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