今の私のPerlプログラミング技術は今朝まで
foreach(@ALIST){
($ano,$aname)=split(/<>/);