if (grep /$_/,  @{$tbl{$i}}  ) {

##</code><code>##

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