@bigarray = qw(this is the main array from which to delete elements);;
@smallarray = qw(delete elements);;

($temp = "@bigarray") =~ s[@smallarray][] and  @bigarray = split ' ', $temp;;

print for @bigarray;;
this
is
the
main
array
from
which
to

##</code><code>##

@bigarray = qw(this is the main array from which to delete elements);;
@smallarray = qw(delete elements);;

$b = join $;, @bigarray;;
$s = join $;, @smallarray;;

$b =~ s[$s][] and @bigarray = split $;, $b;;

print for @bigarray;;
this
is
the
main
array
from
which
to