my $file1_data = ProcessFile("File1");
my $file2_data = ProcessFile("File2");

# ...

sub ProcessFile {
    my $filename = shift;

    my %data;

    #...
    
    return \%data;
}