while(defined(my $line = <FILE>)) {
	next if ($line =~ /#.*?,/);
	my @units=split(/,/, $line);
	for ($i = 0; $i <= 23; $i++)
	{
		if ($line =~ /$xcounits[$i]/)
		{
       			$y[$i]++;
			$ytot++; 
			$x[$i] += $units[5];
			$xtot += $units[5];
		}
	}
}