$ perl -E'local *_ = \my $s;  $_ = 123;  say $s;  $s = 456;  say $_;'
123
456