while (<INPUt>) 
{ 
  push @array, $_;
}