http://qs321.pair.com?node_id=739586

nagalenoj has asked for the wisdom of the Perl Monks concerning the following question:

Dear monks,

I expected the code will print nothing. But, it's not.

$a = 10; @a = qw(1 2 3); *b=*a; undef *a; print @b;

How this prints the output as 1 2 3?