...
 foreach my $key (sort keys %ref){
        print OUT $ref{$key}."\t".$probes[$key];
        my @temp = split "\t", $ref{$key};
        foreach(@temp){if($temp[0] == 2){print $key."\t".$ref{$key}."\n";}}
    }