$dir_list=`ls -1 */*`;
@files=split(/\n/,$dir_list);