# For a positive $number
my @nums = (0..9,'a'..'z','A'..'Z');
my $base = @nums;
my $rep = ""; # this will be the end value.
while( $number > 0 )
{
    $rep = $nums[$number % $base] . $rep;
    $number = int( $number / $base );
}