# after your first foreach loop
foreach my $key (keys %var) {
   1 while $var{$key} =~ s/([a-z_]+)/$var{$1}/;
   $var{$key} = eval "$var{$key}";
}

##</code><code>##

$var{$key} = "\L$value\E";