my @array = qw(eins zwei drei vier eins fuenf zwei); my %vorkommen; @array = grep { # Kam der schon vor? if (exists $vorkommen{$_}) { 0; # dann wollen wir ihn nicht } else { # Merken, dass er vorkam $vorkommen{$_} = 1; 1; # und wir nehmen ihn mit } } @array; print "@array";