sub GroupRows {
	my ($LogName) = @_;
	open LOGA, "< $LogName" or die "Cannot open $LogName\n$!\n";
	while (! eof(LOGA)) {
			chomp($line_a = <LOGA>);
			if (($line_a =~ /^\#/) 
                        { 
                           undef $line_a;
			   next;
			} else {
			     push(@LogVals, $line_a);
			}
	}
	close(LOGA);
}