my @maxtmp1 = sort { $b->{data}->[0] <=> $a->{data}->[0] } @alldata;
my @maxtmp2 = sort { $b->{data}->[1] <=> $a->{data}->[1] } @alldata;
@maxtemp = (@maxtmp1, @maxtmp2);
@maxref = sort { $b->{data} <=> $a->{data} @maxtemp;