Select Code to Download

# Enter the output of the following:
use strict;
...
my @array = keys %hash;
print "$array[0]\n";
__END__

$ cat foo.t
use strict;
...
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