C:\temp>dk
Benchmark: timing 1000000 iterations of foreach_loop, while_each_loop...
foreach_loop:  0 wallclock secs ( 1.08 usr +  0.00 sys =  1.08 CPU) @ 927643.78/
s (n=1000000)
while_each_loop:  0 wallclock secs ( 0.50 usr +  0.00 sys =  0.50 CPU) @ 2000000
.00/s (n=1000000)

C:\temp>perl -w dk.pl
Name "main::hash" used only once: possible typo at dk.pl line 17.
Benchmark: timing 1000000 iterations of foreach_loop, while_each_loop...
foreach_loop:  2 wallclock secs ( 1.08 usr +  0.00 sys =  1.08 CPU) @ 927643.78/
s (n=1000000)
while_each_loop:  1 wallclock secs ( 0.52 usr +  0.00 sys =  0.52 CPU) @ 1941747
.57/s (n=1000000)

C:\temp>perl -wMstrict dk.pl
Global symbol "%hash" requires explicit package name at dk.pl line 17.
Execution of dk.pl aborted due to compilation errors.

##</code><code>##

use strict;
use warnings;