while (my ($fileh, $repoch) = each(%radar)){
		if ($ltgepoch == $repoch) {
			if ($temp[3] eq "") {
				print $fileh "$temp[2],$temp[4],@date,@time\n";
				print "$temp[0] $temp[1] $temp[2] $temp[4]\n";
			}
			elsif ($temp[4] eq "") {
				print $fileh "$temp[2],$temp[3],@date,@time\n";
				print "$temp[0] $temp[1] $temp[2] $temp[3]\n";
			}
		}
	}