Just like in perlfaq4, except the uniqueness constraint is join('|', @{$_}[0..2]) instead of $_.

my %seen;
@array = grep !$seen{ join('|', @{$_}[0..2]) }++, @array;
[download]

Update: Added missing comma.