print "Geben sie die Anzahl benutzter Elemente ein:\n\n";
$E = <STDIN>;
chomp $E;

$F=$E;


$i=1;
do{print "Geben sie die Länge von Element $i in cm einemente ein:\n\n";
  chomp($Elemente{"Element $i"}  = <STDIN>);
   $i++;
   $F--;
}
while($F>0);


foreach $key (keys %Elemente){
print "$key, $Elemente{$key}\n" 
}