use warnings;
use List::Util;
my $reduced = List::Util::reduce { $a + $b } 1, 2, 3, 4;
print "$reduced\n";
()=sort{;}();

##</code><code>##

my $pkg = caller;
eval qq[ package $pkg; our \$a; our \$b; ];