my $pval=Math::BigInt->new(10531788168169408); my ($l,$r) =$pval->brsft(32); [download]
MP
In reply to split 64 bit number by Monky Python