my ($calc1, $calc2, $calc3, $calc4); foreach ( #ITERATE THROUGH EACH CALC VARIABLE ) { print "WHATEVER......"; }