my $outer_scope = 0;
while ( my $line = <$handle> ) {
  my ( $foo, $bar, $fuzz, $bazz ) = split /;/, $line;
  $outer_scope = $bar;
}

# beachte, nach Ablauf der while-Schleife hat $outer_scope
# den Wert von $bar der letzten gelesenen Zeile