What ikegami said, or something like this:

sub getfile {
    for my $request ( @_ ) {
        @{ $request->{'out'} } = ... $request->{'in'} ...;
    }
}

getfile(
    { 'in' => 'file.txt', 'out' => \@file },
    { 'in' => 'file2.txt', 'out' => \@file2 },
);
[download]