@array2 = grep {$_ =~ s/\b$stopword\b//g } @array1;

##</code><code>##

#!/usr/bin/perl

use strict;

my @list = qw( red blue orange yellow black brown green );

print join( ' ', @list );
print "\n";

@list = grep { m/e/io } @list;

print join( ' ', @list );
print "\n";