Select Code to Download

sub myfile
{
  my $file = shift;
...

# and call it like this:
my @lines = @{myfile('xml.log')};