#use strict;
use FileHandle;

# Global Declaration 
my($spool,%serverdet);

open (spooler ,"data.dat") or  die "Error opening the  file\n";

while($spool=<spooler>) {
	chomp($spool);
	($server,$dat1,$dat2)=split(/,/,$spool);
	if($serverdet{$server}) {
		$serverdet{$server} .= ";".$dat1.",".$dat2;
	}else{
		$serverdet{$server} = $dat1.",".$dat2;
	}
}

foreach $key (sort keys %serverdet) {
	print "Server $key\n";
	@val = split(/;/,$serverdet{$key});
	foreach $val  (sort @val)    {
	 print $val."\n";
    }
}