sub foo {
   open FILE, "file.txt";
   bar();
   close FILE;
}
sub bar {
   my @lines = <FILE>;
   # do something here
}