#!/usr/bin/perl -w
    use strict;
    while(<DATA>){
        chomp;
        print ",\n" unless 1..1;
        print;
    }
    __DATA__
    foo
    bar
    blah