Re^2: File handles - there must be a better way

[AnomalousMonk]

Or, keeping the index 0 assignment (array  @InHandles is not changed – might need it later?):

my $file1 = $InHandles[0];
...
for my $fh (@InHandles[ 1 .. $#InHandles ]) { ... }