my $coderef = \&some_subroutine;

my ($foo,$bar) = &$coderef('arg1');
my ($biz,$baz) = &$coderef('arg2');
my ($ying,$yang) = &$coderef('arg3');

sub some_subroutine {
    #...do something with @_...
    return ($value1, $value2);
}