my %monate = (
	      0 => "Januar",   1 => "Februar",   2 => "Maerz",
	      3 => "April",    4 => "Mai",       5 => "Juni",
	      6 => "Juli",     7 => "August",    8 => "September",
	      9 => "Oktober", 10 => "November", 11 => "Dezember" );
	      
$anz = keys %monate;
print $anz, "\n";
$anz = scalar keys %monate;
print $anz, "\n";
$anz = scalar (keys %monate);
print $anz, "\n";
$anz = scalar(keys(%monate));
print $anz, "\n";