Help for this page

Select Code to Download


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