my $summe += (map {length ($FORM{$_}) + length ($_)} keys %FORM);