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