for my $array_ref (@vars) {
    s/e/E/g for @$array_ref;
}
foreach (map @$_, @vars) {
	print "$_\n";
}