my @temp = reverse sort { $a->[0] cmp $a->[0]} @results;