my @result = sort { $a->[0] cmp $b->[0] } @list;