in reply to How do I pull out unique values in a multidimentional array
my %unique_values; $unique_values{$_->[1]}++ for @array; print "Key $_\n" foreach keys %unique_values; [download]