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

##</code><code>##

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