my @maxtemp = sort { $b->{data}[0] <=> $a->{data}[0] or
			$b->{data}[1] <=> $a->{data}[1] } @alldata;