Select Code to Download

for (sort keys %data) {
    my @content = "$data{$_},$_";
...
    #@column = grep(/.*,.*,.*,.*$/, @content);
    print $fh_out "@column\n"; 
}

for ( sort keys %data ) {
    print "$data{$_},$_\n" if ( $data{$_} =~ /,.*?,/ );
}