open FHAND,"filename";
while (<FHAND>)
{
  $var = $_;
}

##</code><code>##


open FHAND1,"filename1";
open FHAND2,"filename2"
@fileData1 = <FHAND1>;
@fileData2 = <FHAND2>;