use strict;
use warnings FATAL => qw(all);
...
my @remove_env=qw(FOO BAR BAZ);
foreach my $var (@remove_env) {
  $ENV{$var}='something';
}
...
delete $ENV{_} foreach (@remove_env);
print "$ENV{FOO}\n"; # FOO stil in environment!!!