printf $out $format, $key, @{$data{$key}}{@columnNames};