my $gesamt = @eins+@zwei+@drei+@vier+@fuenf;
print $gesamt;
my $einser = @eins / $gesamt*100;
my $zweier = @zwei / $gesamt*100;
my $dreier = @drei / $gesamt*100;
my $vierer = @vier / $gesamt*100;
my $fuenfer = @fuenf / $gesamt*100;