...
say List::Util::sum( 1 .. $n ) for 0;