# Enter the output of the following: use strict; use warnings; my %hash = ("Zero","0","One","1","Two","2"); my @array = keys %hash; print "$array[0]\n"; __END__ #### $ cat foo.t use strict; use warnings; use Test::More; plan tests => 10_000; sub get { my %hash = ("Zero","0","One","1","Two","2"); my @array = keys %hash; return $array[0]; } for (1 .. 10_000) { ok(get() eq 'Zero', q{Expect Zero}); } __END__ $ /usr/bin/prove foo.t foo....ok All tests successful. Files=1, Tests=10000, 5 wallclock secs ( 2.18 cusr + 0.06 csys = 2.24 CPU) #### This is perl, v5.8.5 built for i386-linux-thread-multi