use strict;
use warnings;
use bigint;

my $num = 24600988483;
my @parts;

while ($num) {
    unshift @parts, $num & 0xFFFFFFFF;
    $num /= 0x100000000;
}

printf "%x", $_ for @parts;