$n = 123;
  delete $::{n};
  eval '$n=456';
  print $n;
  eval 'print $n';