Help for this page
Select Code to Download
Select
or
download this
perl -E"my %h = 1..100; for my $k(keys %h){ undef %h; say scalar %h; s
+
ay $k }"