$ perl -le 'sub foo { print "foo" } sub bar { print "bar" } $s = $t = "foo"; &$s; $s = "bar"; &$s; $s = $t; &$s'
foo
bar
foo