perl的零散东西
print "$_\n" for $set->as_address_array; 这个方法可以用；

我不知道原来$set 还能作为列表进行由$_遍历啊