Select Code to Download

$HASH_LIMIT = 1024;

...
for $k (qw( testing the hash function )) {
    printf ("%10s - %s\n", $k, &myhash($k));
}

@MY_HASH = (0) x $HASH_LIMIT;

...

    return ($MY_HASH[ &myhash($key) ]);
}