package Foo;
sub sort($&) {
   my ($self, $cmp) = @_;
   ...
   my $caller = caller;
   my @sorted = eval("package $caller; sort \$cmp \@list");
   die $@ if $@;
   ...
}