my $num = 10531788168169408;
my($l,$r) = ($n>>32 & 0xFfffFfff,  $n & 0xFfffFfff);