Select Code to Download

$csv->print (*STDOUT, $_) for @records;

for (@ports) { 
    $csv->print (*STDOUT, [ $_, shift @val1, shift @val2 ]); 
}