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