Help for this page
@stuff = (a, 1, b, 2, c, 3, d, 3);
c => 3 d => 3
@stuff = (a, 1, b, 2, c, 3, d, 3); ... while ( ($key, $value) = each %unique) { print "$key => $value\n"; }