use List::Util 'first';

my $var = '0';

if (first { $_ eq $var } $var) {
  print "Found.\n";
}
else {
  print "Not found.\n";
}

__END__
Not found.