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