Another way to do it:

#!/usr/bin/perl -l

use strict;
use warnings;

my @big = qw(this is the main array from which to delete elements);
my @small = qw(delete elements);
my @new = grep { my $x = $_; not grep { $x =~/\Q$_/i } @small } @big;
print "@new";
[download]