DB<156> while (my ($key, $value) = each @a) { print "$key, $value" };; Type of arg 1 to each must be hash (not array dereference) at (eval 135)[multi_perl5db.pl:644] line 2, near "@a) "