Help for this page
$file = 'test_predictions_1'; open (FH, "<EXAMPLE"); ... $id = $_; if (exists $data{$file}{$id}) {print "match\n";} }
if (exists $data{$file}{$id}) {print "match\n";}