Something

open LOG, "<", "topmod.txt" or die $!;
	my @logLines = <LOG>;
	close LOG;
	
	foreach(@logLines){
		if ($_ =~ /^resc.+/)
		{
			push(@rescLines, $_);
		}
	}
	
	for(my $i=0; $i<=$#rescLines; $i++){
	 	
		$rescLines[$i] =~ s/\s+/ /g;
		
	}
			for(my $i=0; $i<=$#rescLines; $i++){
				
				my @parsed = split(' ', $rescLines[$i]);
				shift @parsed;
				
				#$totalCPU{Processname} += CPU usage;
				#$totalMemory{Processname} += Memory usage;
				#$processCount{Processname}++;
			}