$csv->print(\*STDOUT, [$_, @{$data{$_}}]) ...

##</code><code>##

$csv->print(\*STDOUT, [$_, @{$data{$_}}, SKEW]) ...