das Problem ist ganz simpel:
Perl unstützt als scalar standardmäßig 32-bit Zahlen.
Die größte Zahl, die Perl damit verarbeiten kann ist also
2^32 = 4_294_967_296
Man sieht nun, dass 4_653_896_912 > 2^32 ist;
dadurch kommt es zu einem Überlauf; dadurch wird die Zahl dann als (4_653_896_912 - 4_294_967_296) = 358_929_616 von Perl verwaltet; und (358_929_616 >> 13) ist eben mal 43_814