Select Code to Download

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