my ($calc1, $calc2, $calc3, $calc4, $calc5, $calc6, $calc7); print $calc1; print $calc2; print $calc3; print $calc4; print $calc5; print $calc6; print $calc7;