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