Help for this page
<i> while (<INPUT1>) ... my @words2 = $line2; } </i>
my @words1 = <INPUT1> my @words2 = <INPUT2>