my %saw;
my @sum=map {$_ => $saw{$_}} grep !$saw{$_}++, @array;