my $old = $foo->fribble
$foo->fribble($new);
... do something ...
$foo->fribble($old);