Select Code to Download

my ($initial_enthalpy, $initial_entropy) 
    = get_initials ($terminal[0], $initial_enths[1], $initial_entros[1
+]);
...
    return ($enths, $entros);
  }
}

my ($initial_enthalpy, $initial_entropy) = $terminal[0] =~ /^[GC]/
    ? ($initial_enths[1], $initial_entros[1])
    : (undef undef);