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