#! c:/perl/bin/perl.exe
use strict;
open (LST,"c:/work/test_data.lst") || die "\n$!\n";
chomp (my @data_array = <LST>);
my $snap_shot;
my %seen;
my @cleaned_data;
foreach my $data ( @data_array)
{
	my $rec;
	my ($server, @info) = split (/,/,$data);
	if (! $seen{$server})
	{
		$rec->{Server_Name} = $server;
		print "$server\n";
		$seen{$server}++;
		print "\t@info\n";
		@{$rec->{Apps_Info}} = @info;		
	}
	else
	{
		print "\t@info\n";
		@{$rec->{Apps_Info}} = @info;
	}	
	push (@cleaned_data, $rec);
}