Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;

use List::Util qw/reduce/;
print reduce { $a * $b } 1..6;
  2. or download this
    Name "main::a" used only once: possible typo at x.pl line 6.
Name "main::b" used only once: possible typo at x.pl line 6.
  3. or download this
    use strict;
use warnings;

print sort {$a <=> $b } 1..6;