my @arr1 = ('a');

foreach my $var1 (0, 1) {

  if( grep($var1, @arr1) ) {
        print "match $var1\n";
    }
  else {
    print "fail $var1\n";
  }

}