in reply to updated: hash value $value

You can pass the hash reference as the argument of the subroutine (I'll call it frobnicate ):
frobnicate(\%hoh_groups_prod);

And, in the subroutine:

sub frobnicate { my $hash = shift; $hash->{key} = ... ; # etc. }

Update: \@\% (thanks LanX).

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

Replies are listed 'Best First'.
Re^2: hash value $value
by natxo (Scribe) on Feb 17, 2016 at 15:21 UTC
    cool, thanks!

    Nice naming convention ;-)