sub x {
    my @sorted = map $_->[1],
    sort{ $a->[0] cmp $b->[0] } map[
        $_->title eq 'Manager' ? 'A'.$_->name : 'B'.$_->name, $_
    ], @employees;
}