my @arr1 = ('a');

foreach my $var1 (0, 1) {

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

}

##</code><code>##

#!/usr/bin/perl
use warnings;use strict;

my $paid = 0;  # :-(

my @shopping =
  (
   'twinkies','coffee',
   (grep !$paid => 'gruel', 'cabbage', 'cordial'),
   (grep $paid => 'caviar', 'truffles', 'champagne'),
  );

print "@shopping";