for my $csvLine (@csvLines) {
    $csv->print( $csvfh, $csvLine ) or die $!;
}

->

$csv->print ($csvfh, $_) for @csvLines;