Help for this page
$file1 = $InHandles[0]; while (<$file1>){ ... ... $file = $InHandles[$f]; $_ = (<$file>); ...