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