my $hash = {};

do_something( $hash );
print Dumper( $hash );

sub do_something
{
    my $hash = shift;

    $hash = { a => 'alpha',
              b => 'beta',
            };

    print Dumper( $hash );
}