Select Code to Download

use strict;
use warnings;
...
    $digest /= 64;
    print "$i $digest\n";
}

1 48635463943209834798109814161294753926839975257569795305637098542720
+658922315
1 75992912411265366872046584627023053010687461339952805165057966473001
+0295661
...
9 11463511883541201508393500803711559652562721115888819482889049505863
+143503287
9 17911737318033127356864845005799311957129251743576280442014139852911
+1617238
10 3359281535163583886622750554468341756416232122807515421831543601247
+6449103317