for (@array) {
  deine_funktion();
  print "item $_\n"; # $_ ist leer!
}

sub deine_funktion {
  # ...
  print while <$fh>;
}