Select Code to Download

@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";
 }