my $x = ( 1 << 54 ) | 1;
say $x;  # 18014398509481985

$x = unpack 'F', pack 'F', $x;
$x = unpack 'J', pack 'J', $x;

say $x;  # 18014398509481984