sub getHash {
  ...
  if( $hunky_dory ) {
    return \%ret_value;
  } else {
    return undef
  }
}

my $hash_ref = getHash( );

unless( defined $hash_ref ) {
  die "Woe is me\n";
}

# ... get on with it ...