use 5.012;
use warnings;

# Hash erzeugen
my %test = ( test123 => undef );
# Hashreferenz erzeugen
my $link = \%test;

# Hashschlüssel und -werte ausgeben,
# undefinierte Werte explizit durch leere
# Zeichenketten ersetzen
say map { $_ // '' } %$link;