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

my @a = (1,2,3,4,5);
my @b = (1,3,4);

print "Using Grep:";
my @c = grep { $a = $_; !grep { $_ eq $a } @b } @a;
print join(",", @c), "\n";

print "Using For and Grep:\n";
for $a (@a) {
   print $a,"\n" if !grep { $a eq $_ } @b;
}

print "Using only For:\n";
for $a (@a) {
    my $found = 0;
    for $b (@b) {
        $found = 1 if $a eq $b;
    }
    print $a,"\n" if !$found;
}