$adressen{Peter} = \@daten;

if (ref($adressen{Peter} eq 'ARRAY') {
  foreach (@{ $adressen{Peter} } ) {
    print "$_\n";
  }
} # if
else { # nur ein normaler string
  print $adressen{Peter}, "\n";
} # else