Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use Modern::Perl;
...
    return grep { ! ($_ % 2) } @_;
}
say for evens(1..10);
  2. or download this
    #!/usr/bin/env perl
use Modern::Perl;
...
my @nums = (1..10);
squares(\@nums);
say for @nums;
  3. or download this
    #!/usr/bin/env perl
use Modern::Perl;
...
    my $t = huge($_) ? 'true' : 'false';
    say "$_ $t";
}