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

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

@finalnames = (keys %temphash);