BEGIN {
  my %x = ();
}

##</code><code>##

$ perl test.pl
Bizarre copy of HASH in leavesub at test.pl line 3.
BEGIN failed--compilation aborted at test.pl line 3.