Well, lets see. The OP asked for a way to use a loop to reduce his typing. He also is unlikely to want to _only_ print the variables involved. That could lead to serious code duplication. Also if you are being facetious then why not get rid of all those pesky print statements?
print join($/||"",$calc1, $calc2, $calc3, $calc4, $calc5, $calc6, $cal +c7);
<Elian> And I do take a kind of perverse pleasure in having an OO assembly language...