open(QUERY,">$query") or die "cannot open querry file\n";
	while ($inparr[$temp] ne "\n")
	{
		print QUERY "$inparr[$temp]";
		$temp++;
	}
	close(QUERY);