my @sorted = map {
    $_->[1]
} sort {
    $a->[0] <=> $b->[0] || $a->[1] cmp $b->[1]
} map {
    [tr/-// ? 0 : tr/_// ? 1 : 2, $_]
} @array;