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

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