or

# Generation Code
my $newkey = &generateRandomHashKey();
# Store keys as generated in original order
push @Keylist, $newkey;
$hash{$newkey} = &generateData();
# ...
# Testing Code
foreach my $testkey (@Keylist)
{
    # Perform test against $hash{$testkey};
}
[download]