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!