my $x = 123;
{
   my $x = $x;
   say $x;   # 123
   $x = 456;
   say $x;   # 456
}
say $x;   # 123