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