$ perl5120 -wE'my $x=1; given ($x) { $_ = 2 } say $x'
1
$ perl5120 -wE'my $x=1; for ($x) { $_ = 2 } say $x'
2