perl -e '$B = 10; $n = (3*($B**2)) + (0*($B**1)) + (9*($B**0)); print "$n\n";'