Select Code to Download

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