use strict;
use warnings;

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";