foreach my $key (keys %data) {
    print "$key,$data{$key}\n";
}