$myhash{$key}->($value1, $value2)
##</code><code>##

foreach $key (%$ref){
    ($value1, $value2)= @$ref{$key}
    ##do something...
}

##</code><code>##

mysub($ref);

sub mysub{
    my $param = (@_);

    foreach $key (%$param){
        ($value1, $value2)= @$param{$key}
        ##do something...
    }
}