Select Code to Download

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