Something

sub getLines{

	open LOG, "<", "topmod.txt" or die $!;
	my @logLines = <LOG>;
	close LOG;
	
	foreach(@logLines){
	
		if ($_ =~ /^resc.+/)
		{
			push(@rescLines, $_);
		}
			
			for(my $i=0; $i<=$#rescLines; $i++){

				my @parsed = split(' ', $rescLines[$i]);
				shift @parsed;
				
				#$totalCPU{Processname} += CPU usage;
				#$totalMemory{Processname} += Memory usage;
				#$processCount{Processname}++;
			}
			
		
	}
}