Help for this page
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;
www.com | www.net | www.org
No recent polls found