oder einfacher:
%uni = map{$_,1}@ar; # Tipp von Wingi
oder noch einfacher mit einem sogenannten slice:
Array mit duplikaten
my @ar = qw(emil wolle wolle emil erwin erwin rolf rolf otto otto ulla otto);
my %test;
@test{@ar} = ();
@ar = keys %test;
use Data::Dumper;
print Dumper @ar;
Struppi.