my %peers1 = ('Haus','Tuer','Auto','Rad');
my %peers2 = ('Haus'=>'Tuer',
              'Auto'=>'Rad'
              );
use Data::Dumper;
print Dumper(\%peers1);
print Dumper(\%peers2);