$ perl -e " use bignum; my $q = 123.0; print join q{ }, $_, $q->digit(-$_),$/ for 1 .. 5 ; warn ref $q "
1 1
2 2
3 3
4 0
5 0
Math::BigInt at -e line 1.



##</code><code>##

$ perl -e " use bignum; my $q = 123 + 1/3; print join q{ }, $_, $q->digit(-$_),$/ for 1 .. 5 ; warn ref $q "
Can't use an undefined value as an ARRAY reference at ...lib/Math/BigInt/Calc.pm line 1209.