$count{$_}++ for @array;
@new_array = grep {$count{$_} < 2} @array;