$n = 576460752840294400; 
printf "%20.f\n", $n;;

  576460752840294400

##</code><code>##

use List::Util qw[ sum };

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