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