use warnings;
use strict;

{   package Bar;
    my $obj = Foo->new;
    print join ", ",
        sort {$obj->mysort($a,$b,"bar")} qw/x a o/;
}

{   package Foo;
    sub new { bless {}, shift }
    use Data::Dump 'pp';
    sub mysort {
        pp \@_;
        $_[0] cmp $_[1];
    }
}

__END__

[bless({}, "Foo"), "x", "a", "bar"]
[bless({}, "Foo"), "x", "o", "bar"]
[bless({}, "Foo"), "o", "a", "bar"]
x, o, a