Select Code to Download

my @source = qw(bob janne max max bob anne);
my @finalnames;
...
   next if(grep(/^$name$/, @finalnames));
   push @finalnames, $name;
}

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

@finalnames = (keys %temphash);