for my $f(@files) { open(my $H, $f); process($H); close $H;}sub process { my $H = shift; while (<$H>) {.......}}