You could use symbolic references (which is not considered "neat") or eval (which also isn't considered "neat"). Or you could use the following untested code:

    my @calcs = \my ($calc1, $calc2, $calc3, $calc4);
    foreach my $calcref (@calcs) {
        # Use $$calcref to access the $calc variables
    }
[download]

But you are probably better off using an array instead of a list of variables.

Abigail