print "aliases: " , join(",",@{ $_->aliases() }),"\n" for (@retrieved_objs);