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

##</code><code>##

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