@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