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

##</code><code>##

@ASAList = split(/ /, $ASAlist);