#!/usr/bin/perl -w
use strict;

use Array::Utils qw(:all);

my @first = (1,2,3,4);
my @second = (1,5,6,7);
my @minus = array_minus( @first,@second );
for my $term (@minus) {
    print "'$term'\n";
}