Help for this page

Select Code to Download

Select or download this

my %seen;

while (<FILE>)
...
    ($File[$i], $Name[$i], $Keywords[$i]) = ( $file, $name, $keyword )
+;
    $i++;
}