Help for this page
my $x = 100; my @y = (10, 20, 30); ... } local $" = ", "; print "\$x = $x\n\@y = (@y)\n";
# or: foreach my $n ($x, @y) { $n *= 2; }
map { $_ *= 2 } $x, @y;
grep { $_ *= 2 } $x, @y;
sub double { foreach(@_) { ... } double($x, @y);
www.com | www.net | www.org
No recent polls found