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