#!perl $calc1 = 1; $calc2 = 15; $calc3 = 7.5; $calc4 = 9; for (1..4) { my $var = 'calc' . $_; print $var, "\t", $$var, "\n"; } __END__ calc1 1 calc2 15 calc3 7.5 calc4 9