open INTO,">sumfile.txt";
open FILE, "serverinventory.txt";


		while(<FILE>){
			chomp;
			$_ =~ s/\"//g;
			#$_=~ s/\,/ /g;
			
			
			@LINE=split(/\,/);
			
			$HOST=$LINE[1];
			if($HOST =~/DOAISDBLADE/|| $HOST =~ /DOAISD9/|| $HOST =~/KVM/|| $HOST =~/DOABILBLA/){
			}
			
			
			elsif($LINE[19] =~ /EXE/||$LINE[19] =~ /ITSD/||$LINE[19] =~/REV/){
				$FMM = $LINE[19];
				$USE = $LINE[16];
				$HOST = $LINE[1];
			        my $USE = substr($USE,0,3);
				my $AG = substr($LINE[16],4,17);
				#printf INTO   ("%0s  %0s\n",$FMM,$HOST,$USE);
				 print INTO "$HOST $FMM $USE\n";
				
					
			}
			 

					

		}

close FILE;
close INTO;

# MOVe to running against the new file made sumery.txt
open FILE2,"sumfile.txt";
open too,">out.txt"; # open file for counts to be depposited to 
while(<FILE2>){
chomp;
	

	@arry1 = split(/ /);
	$TOTAL = 
	
	$tab1=$arry1[0];
	$tab2=$arry1[1];
	
						
	#print "$tab1 $tab2\n"; 


push(@ {$ARG{"$tab1"}},"$tab2");

}

#
foreach  $string  (keys %ARG) {		#HASH OF ARRAY SORTED 
$last = $#{$ARG{$string}};			#GETS THE COUNT OF THE JOBS FOR EACH TABLE
$last=$last + 1;

print  "$string $ARG{$string}\n";

}