#!/usr/bin/perl

use strict;
use warnings;

my %hash = (Modul1 => 1235,
        Modul2 => 6234,
        Module3 => 19057);

print "Es gibt ",scalar keys %hash," Module\nDas Modul1 hat die Größe",$hash{Modul1},"\n";