David Wheeler wrote: > On Monday, November 25, 2002, at 05:52 PM, cajun at cajuninc.com wrote: > >> my @beer= qw (good cold more); >> foreach (@beer){ >> print "$_ beer\n"; >> } > > > my @beer = qw(good cold more); > while (1) { map { print "$_ free beer\n" } @beer } > my @beer = qw(good cold more); while (my $uid = getpwnam ... doh!