my $ref = CreateRef();

sub CreateRef {
  my %some_hash = ('foo' => 'bar');
  return \%some_hash;
}