print "opening file 1\n";
myfile();
print "opening file 2\n";
myfile();
print "opening file 3\n";
myfile();

sub myfile
{
  open FILE, "xml.log";
  my @lines = <FILE>;
  close(FILE);
}