my $saved = $_;
$_ = undef;
...
$_ = $saved;