use Data::Dumper;

my (%energizer, %bunny);
$energizer{going} = \%bunny;
$bunny{and}       = \%energizer;

while (my ($keeps, $hopping) = each %bunny) {
  print Dumper($hopping);
}

[download]

++ to the first monk who figures out my rabbit's source of unlimited energy. :)

Replies are listed 'Best First'.
Re: Ode To The Energizer Bunny
by chipmunk (Parson) on Jan 22, 2001 at 22:43 UTC
    Ooh... Is it that Dumper calls each() on %{$hopping->{going}}, which is the same as %bunny, and so the each iterator has been reset when your while loop calls each %bunny again?
[reply]
[d/l]
[select]
      <marv_albert>Yessssssssss!</marv_albert>
[reply]

Back to Perl Poetry