#!/usr/bin/env perl
use strict;
use warnings;
# use 5.010;
use PerlX::Range;
my $a= 1..100;
# should only print 1, 5, 9
$a->each(
sub {
return 0 if $_ > 10;
say $_;
}
);
#!/usr/bin/env perl
use strict;
use warnings;
# use 5.010;
use PerlX::Range;
my $a= 1..100;
# should only print 1, 5, 9
$a->each(
sub {
return 0 if $_ > 10;
say $_;
}
);