Help for this page

Select Code to Download

Select or download this

my $j = 0; # file/column number
foreach $file (@files){
...
    close(INP);
    $j++;
}