while (<TEST> and !$flag){}   #UPDATE---see below discussion!