package Foo;

...

sub sort {
    my $self = shift;
    my $code = shift;
    sort { $code->($a, $b) } @{$self->{arrayref}};
}

my $foo = Foo->new;
$foo->sort(sub { lc($_[0]) cmp lc($_[1]) });