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