$Results{"Bill"} = 1000;
$Results{"Bob"} = "forfeit";
$Results{"Betty"} = 6000;
@myArray = keys(%Results);
print "Keys in hash are @myArray"\n";
==> Keys in hash are Bob Bill Betty
print "Keys in hash are " . keys(%Results) . "\n"; ==> Keys in hash are 3