[Moscow.pm] А как написать свой sort?

[Ivan Petrov]

в том смысле чтобы при использовании strict итп функция сортировки
оперировала переменными $a и $b?

sub my_sort(&@) {
    my ($cb, @ary) = @_;
    ...
}