$_=666;
{
  my $_=777;
  print $_;        # -> 777
  print $main::_;  # -> 666
}