#!/usr/bin/perl -w
use strict;

print base10_it('ba'), "\n";

sub base10_it {
    my $base_10;
    my $power = 0;    
    my @values = split '' , $_[0];
    while (my $val = pop @values) {
        $base_10 += (ord($val) - 96) * 26 ** $power;
        $power++;
    }
    $base_10;
}