$ perl test.pl
HASH(0x8002bc80)
BarneyRubbleFredFlintstone
Flintstone
Flintstone
Rubble
$