>perl -we "my %keys={A=>'b'};my ($a,$b); while (($a,$b)=each %keys) { print qq($a $b\n); }"
Reference found where even-sized list expected at -e line 1.
...