my $n;
my ($div, $rem) = ( int($n/10), $n % 10 );