Help for this page
$csv->print (*STDOUT, \@{$sth->{NAME_lc}});
$csv->print (*STDOUT, $sth->{NAME_lc});