>perl -wMstrict -le
"my %hash = qw(a aye  b bee  c see  eh aye);
 ;;
 my $pre_k = keys %hash;
 %hash = reverse %hash;
 $pre_k == keys %hash or die 'somebody got clobbered';
"
somebody got clobbered at -e line 1.