Select Code to Download

use strict;
use warnings;

...
}

print "$name_hash{$_}\n" foreach @names;

use strict;
use warnings;

...
}

print "$peter\n$jonah\n$larry\n";