while (my $line = <IN>) {
  ...
  for my $i (...) {
    if (grep /$line/, @{$tbl{$i}}) {
      ...
    }
  }
}