Select Code to Download

my @array = qw( joby andy ben tom bob );

print "start\n";
...
for my $name ( @array ) {
    print "$name\n";
}