use List::Util qw[ sum };

$n = sum 1 .. 2**26;