Select Code to Download

$myhash{$key}->($value1, $value2)

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

mysub($ref);

...
        ##do something...
    }
}