perl -E"my %h = 1..100; for my $k(keys %h){ undef %h; say scalar %h; say $k }"