note
shmem
Perhaps this works:
<c>
$file = 'test_predictions_1';
open (FH, "<EXAMPLE");
while (<FH>) {
chop; # remove trailing newline
$id = $_;
if (exists $data{$file}{$id}) {print "match\n";}
}
</c>
<p><small><update></small>
<p>Having a second look at your code:
<c>
if (exists $data{$file}{$id}) {print "match\n";}
</c>
<p>Does the key <c>$file</c> to the hash <c>$data</c> even exist in the hash?
<p>You could use [mod://Data::Dumper] to dump your HoH and check if it's what you expect.
<p><small></update></small>
<p>--shmem
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-510280">
<small><pre>
_($_=" "x(1<<5)."?\n".q·/)Oo. G°\ /
/\_¯/(q /
---------------------------- \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}</pre></small>
</div></div>
585698
585698