Hash will not print if a value begins with 2 under certain conditions

Select or download this

                                                    
#!/usr/bin/perl

...
    close(OUT);
}

Select or download this

146529  0.777314368326637
146529  0.777314368326637
146530  0.116241153901913
...
146532  -0.150051720847835
146533  0.037500790454267
146533  0.03750079045426

Select or download this

...
 foreach my $key (sort keys %ref){
        print OUT $ref{$key}."\t".$probes[$key];
...
    }

Select or download this

146542  2       31852
146542  2       31852
146543  2       37693
...
146546  2       41256
146547  2       43652
146547  2       43652

Select Code to Download