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