my @source = qw(bob janne max max bob anne);
my @finalnames;

foreach $name (@source) {
   next if(grep(/^$name$/, @finalnames));
   push @finalnames, $name;
}

##</code><code>##

my @source = qw(bob janne max max bob anne);
my %temphash;
my @finalnames;

foreach $name (@source) {
   $temphash{$name} = 1;
}

@finalnames = (keys %temphash);