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}";
    }
}

#!/usr/bin/perl

use warnings;
use strict;

package Device {

    sub new {
        my $classname = shift;
        my $self = {address => shift,
                    id      => shift,
                    type    => shift};
        return bless($self, $classname);
    }

    sub getType {
        my $self = shift;
        return $self->{type};
    }
}

my $device1 = Device->new("/dev/test", 1, "test-device");
print "\nType of device1 is: \"" . $device1->getType() . "\".\n\n";