use strict;

for (1..3){
  print "BEFORE: " . $_;
  foo();
  print " AFTER: " . $_ . "\n";
}

sub foo{
 for(<DATA>){
   last;
 }
}

__DATA__
a
b
c