my $num = 100;
my $digit = int ($num / 10 ** (length($num)-1) );