#...
while ($line=<>) {
#...
  foreach $user (keys(%$users)) {
    my $pattern=$user->{'Pattern'};
    if ($line=~/$pattern/i) {
     print STDERR "Great, we found pattern $pattern!\n";
    }
  };
};