my $age = $company~>boss()~>wife()~>age();