Select Code to Download

#!/usr/bin/perl
use strict;
...
for (keys(%h)) {
        print "$h{$_}\n";
}

HASH(0x9904d20)
HASH(0x9904d38)
...
HASH(0x9904d2c)
HASH(0x9904d08)
HASH(0x9904d20)

#!/usr/bin/perl
use strict;
...
for (keys(%h)) {
        print "$h{$_}\n";
}

HASH(0x9ea67c8)
HASH(0x9ea6720)
...
HASH(0x9ea6600)
HASH(0x9ec8590)
HASH(0x9ea6990)