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" 
}

Element 8, 17
Element 4, 13
Element 10, 19
Element 7, 16
Element 5, 14
Element 1, 10
Element 9, 18
Element 2, 11
Element 3, 12
Element 6, 15