If you are willing to rely on the values being sorted and don't want to create a hash of the values like the other solutions you could do something like this.

my @unique;
for (@array) { push @unique, $_->[1] unless $unique[$#unique] == $_->[
+1] }
[download]