sub getfile {
   ...
   return ( \@file, \@file2 );
}

my ($file, $file2) = getfile('file.txt', 'file2.txt');

for (@$file ) { ... }
for (@$file2) { ... }