Sorry about the above - forgot the <code> tags.

my %unique_values;
$unique_values{$_->[1]}++ for @array;
print "Key $_\n" foreach keys %unique_values;
[download]

Originally posted as a Categorized Answer.