my $flag = 1;
foreach (@ARGV)
{
  if ($entry !~ m/\Q$_\E/)
  {
    $flag = 0;
  }
}