Select Code to Download

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

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