Select Code to Download

my %age; # Age of a person, in years
$age{'Sonny'}  = 30;
$age{'Junior'} = 10;
...
foreach my $person (sort keys %age) {
    print "$person is $age{$person} years old\n";
}

open my $orglist, '<', $ARGV[1] or die "Can't open $ARGV[1]: $!";
foreach my $item (<$orglist>) {
...
    print { exists $dellist{$item} ? $beepon : $beepoff } $item . "\n"
+;
}
close $orglist;