my $saved = $magical;
...
$magical = ...;
...
$magical = $saved;