my %age; # Age of a person, in years
$age{'Sonny'}  = 30;
$age{'Junior'} = 10;
$age{'Poppa'}  = 40;

foreach my $person (sort keys %age) {
    print "$person is $age{$person} years old\n";
}

##</code><code>##

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