Select Code to Download

my ($calc1, $calc2, $calc3, $calc4);
foreach my $calc ( $calc1, $calc2, $calc3, $calc4   )   {
  print "$calc\n";
}