my $n = Math::BigFloat->new(123);
say $n->as_int->digit(-1);      # prints: 1