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