use 5.020;
use warnings;
my %Geraete_Hash = (
    'Hammer' => {
        TYPE     => 417,
        Adresse  => 'Pseudopolis Yard',
        ID       => 'Ist das der Name des Geräts?',
        Gewicht  => 500,
    },
    'Bohrer' => {
        TYPE     => 413,
        Adresse  => 'Treacle Mine Road',
        ID       => 'Black & Decker',
        Leistung => 800,
    }
);

foreach my $geraet (sort keys %Geraete_Hash) {
    say "$geraet:";
    my %geraet = %{$Geraete_Hash{$geraet}};
    foreach my $key (sort keys %geraet) {
        say "  $key = $geraet{$key}";
    }
}