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

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