Help for this page

Select Code to Download


  1. or download this
    @e = (1,2,3,4);
my $foo;
$foo += $_ for @e;
  2. or download this
    @e = (1,2,3,4);
print eval join '+', @e;