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

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

sub base10_it {
    my $base_10;
    my @values = reverse split '' , $_[0];
    $base_10 += ((ord($values[$_]) - 96) * 26 ** $_) for (0 .. $#values);
    $base_10;
}

##</code><code>##

#!/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;
}