my $lline; foreach my $line (@arr) { ## stuff goes here; $lline = $line; }