open my $in, '<', $fileName or die "Unable to open $filename: $!";

##</code><code>##

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