sub your_wrapper {
    my $ret = your_function(@_);
    return ($ret->{red}->{sla}, $ret->{green}->{sla});
}

my ($val1, $val2) = your_wrapper('bla', 'blub');