$csv->print (*STDOUT, \@{$sth->{NAME_lc}}); #### $csv->print (*STDOUT, $sth->{NAME_lc});