> #!/usr/bin/perl
> use strict;
> use warnings;
> sub my_sort(&@) {
> my $cb = shift;
> $a = shift;
> $b = shift;
> # делаем дело здесь
> #
> # my $cmp = $cb->();
> # и т.д.
> ...;
> }
> my @sorted = my_sort { $b cmp $a } ( 'c', 'a', 'b' );
такой код огребает варнинги если в разных модулях код