#!/usr/bin/perl -w
use strict;
my @array =();
{
        local $/="\n\n";
        push @array, $_ while <DATA>
}

print join (",", split( /\n/, $_)),"\n" for (@array) ;

__DATA__
a
b
c

d
e
f