#use strict;
#use warnings;

##</code><code>##

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