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

print $calc1;
print $calc2;
print $calc3;
print $calc4;
print $calc5;
print $calc6;
print $calc7;
[download]