#как бы лист
my %T= ( E1=>'A1+B2*C3',   A1=>'C3/2',   B2=>'A1*5',   C3=>'10' );
our @V=keys %T; #vertices
our %adj=(); #edges
foreach my $k (@V){
  my %w;
 @w{($T{$k} =~ m/([A-Z]\d+)/g)} = (); #выборка ячеек, от кот. зависит текущая
  $adj{$k}= keys %w; # финт для избавления от дубликатов
}
# топологическая сортировка
our ( $color, @order);
#поиск в глубину
map { $color{$_}= 0 } @V;
foreach  my $u(@V){
  DFS_VISIT($u) if($color{$u} ==  0 );
}

# собственно вычисления
for my $k (@order){
        my $expr = $T{$k} ;
        $expr =~ s/([A-Z]\d+)/$T{$ 1 }/ge;
        warn "EVAL: $k $expr";
        $T{$k} = eval ($expr);
}

use Data::Dumper;print Dumper(\%T); #как бы вывод результата

sub DFS_VISIT{
  my $u=shift;
  $color{$u}= 1 ;
  foreach my $v ( @{$adj{$u}}) { #проходим по соседним вершинам
        DFS_VISIT($v) if($color{$v} == 0 );
  }
  $color{$u}= 2 ;
  push @order, $u;
}

EVAL: C3  10  at a.pl line  22 .
EVAL: A1  10 / 2  at a.pl line  22 .
EVAL: B2  5 * 5  at a.pl line  22 .
EVAL: E1  5 + 25 * 10  at a.pl line  22 .
$VAR1 = {
          'C3' =>  10 ,
          'A1' => '5',
          'B2' =>  25 ,
          'E1' =>  255 
        };

e : e '+' p | e '-' p |  '-' p | '+' p
p : t | p '*' t | p '/'  t
t : ident | float | '('  e ')'
float : \d+\.?\d*[eE][-+]?\d+  |  \d+\.?\d*
ident : [a-zA-Z][ 0 - 9 ]

^\s*([A-Z][ 0 - 9 ]|\d+)(\s*[-+/*]\s*([A-Z][ 0 - 9 ]|\d+)\s*)*$