#!/usr/bin/perl 

use v5.10;
use strict;
use warnings;
use Math::BigInt lib => 'FastCalc';

my $n = 123;

my $x = Math::BigInt->new($n);
say $x;
say $x->digit(-1);