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