This isn't tested, but it should do the trick

map { $results[$k++] = $_->[1] if !$seen{$_->[1]}++ } @array;
[download]