while(<$infile>){
  push (@line, $_);
}