#!/usr/bin/perl
#use strict;
#use warnings;
#use Data::Dumper;

my %data;

{
    local $/ = '';
    while (<>) {
        chomp;
        my ($key, $data) = split /\n/;
        $data{$key} = $data;
    }
}
#print %data;
my $key;
# my $data;
 foreach $key (keys %data) {
#     print "$key\n";
     print "$key,$data{$key}\n";
 }