lanx@lanx-1005HA:~/pm$ cat tst_glob.pl $\="\n"; $n=123; $gr=\*n; print *n{PACKAGE}," :: ",*n{NAME}," = ", ${*n{SCALAR}}; delete $main::{n}; print *{$gr}{PACKAGE}," :: ",*{$gr}{NAME}," = ", ${*{$gr}{SCALAR}}; lanx@lanx-1005HA:~/pm$ perl tst_glob.pl main :: n = 123 main :: n = 123