$ perl
use Data::Dumper;

my $hash;

my $rval = \ $hash{a}{b}{c}{"hlst"};

$$rval = "" unless defined $$rval;

print Dumper \%hash;

__END__
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'hlst' => ''
                                   }
                          }
                 }
        };

##</code><code>##

use Data::Dumper;

my $hash;

defor( $hash{a}{b}{c}{"hlst"} , "");

print Dumper \%hash;

sub defor {
    $_[0] = $_[1] unless defined $_[0];
}

__END__
$VAR1 = {
          'a' => {
                   'b' => {
                            'c' => {
                                     'hlst' => ''
                                   }
                          }
                 }
        };