if( substr $packedReal10, -1 ) {
     warn 'Loss of precision...';
}