use strict;
use warnings;

sub base3
{
   my $num = shift;
   my @res;
   do { unshift @res, ( $num % 3 ) }
      while ( $num = int( $num / 3 ) );
   return join '', @res;
}

print base3( 65 );

__END__
2102