Help for this page
my @foo = qw(123 456 789); my @bar = qw(abc def ghi); ... qux(@foo, @bar, 'STDERR'); print "\n"; print \@foo . "\t" . \@bar;
# the filehandle name must be quoted if you have strict subs enabled. process(@data,@set_up,$template, 'OUT'); ... foreach my $record (@data) { --do things--} }
www.com | www.net | www.org
No recent polls found