perl Class-Accessor-Chained