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