my $line = 20;
print "Startwert: $line\n"; # enthält das originale 20
while ($line = <STDIN>) {
  print "Wert in Schleife: $line\n"; # enthält den aktuellen Wert in der Schleife
}
print "Endwert: $line\n"; # enthält den letzten Wert, der in der Schleife zugewiesen wurde