Help for this page

Select Code to Download

Select or download this

sub x2 {
    my @sorted = keysort {
        $_->title =~ /Manager/ ? 'A'.$_->name : 'B'.$_->name
    } @employees;
}

Select or download this

C:\test>junk87
             Rate    obvious     subtle functional          x         
+x2
...
x          1085/s       483%       368%       127%         --       -3
+7%
x2         1717/s       822%       641%       260%        58%         
+--