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