&abc($test);

print %$test;

sub abc {
my($hash) = @_;
$hash->{'DEF'} = '456';
}

とする場合、"DEF456"と出力されればいいんですが、されません。
最初に
$test->{'ABC'} = '123';
などと初期化しておけば良いのですが、この他にも初期化方法はありませんでしょうか