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