#!/usr/local/bin/perl -w

use strict;

my (@names, @versions,$l,$e);

$l=0;
$e=0;
while (<DATA>) {
  chomp;
  if (! /^[\s]+$/) {
    ($names[$l],$versions[$l])=split(/[\s]+/);  
    $l++;
  }
  else {
    $e++;
  }
}

$,=", ";
print "@names @versions\n";
print "empty lines=$e\n";

__DATA__

jan 2.76
feb 3.20

mar 1.6
apr 4.00