Select Code to Download

foreach $field (param) {
   # Isolate non-empty values
...
   local $, = "\n";
   print $header, @values, "\n";
}

foreach $field (qw(Data_One Second_Part)) {
   # Isolate non-empty values
...
   local $, = "\n";
   print $header, @values, "\n";
}