eval q[
    for my $i (1..$n) {
        my @c = map $_ * 4, @a;
    }
]