#!/usr/bin/perl
use strict;
use warnings;
my %h1;
my %h2; #etc

# a bunch of code here to setup and prepare,
# maybe find the list of files 

foreach my $file ( @files ) {
    # open ...
    # split ...
    $h1{ $file } = $splitted[1];
    $h2{ $file } = $splitted[2];
    # ... and so on
    
    my $res1 = my_func( %h1 ); # don't do this
    my $res2 = my_func( %h2 );
    # ...

    if ( some condition ) {
        # do something with $res1 and $res2
    }
    # continue, 
    # lots of code
    # working hard
    # but never using the hashes again
}