while (<ASA>) {
	  $ASAlist .= $_;
  } #end while