use strict;
use warnings;

print "opening file 1\n";
my @lines;
myfile(\@lines);
@lines = {};
print "opening file 2\n";
myfile(\@lines);
@lines = {};
print "opening file 3\n";
myfile(\@lines);
@lines = {};

sub myfile
{  
  my ($line) = @_;    
  open my $fh, "xml.log";
  @{$line}= <$fh>;  
  close($fh);
}