perl -MMath::BigInt -e '
($\,$,)=("\n","\t");
for $i (1001,1_000_001,1_000_000_001,1_000_000_000_001) {
$j=$i; 
$q=$j**2;               
$s=sprintf("%020s",$q); 
print $q,int($q),$s++,$s;
}                        
'                        
1002001	1002001	00000000000001002001	00000000000001002002
1000002000001	1000002000001	00000001000002000001	00000001000002000002
1.000000002e+18	1.000000002e+18	000001.000000002e+18	1.000000002e+18
1.000000000002e+24	1.000000000002e+24	001.000000000002e+24	1.000000000002e+24