-*sub launch_missile ( $silo_id = get_default_silo_id() ) {
- die "Silo is empty.\n" if $missile_inventory->{$silo_id} <= 0;
- $missile_inventory->{$silo_id} -= 1;
- say "Missile launched from silo $silo_id.";
-}
+my @others = $person->{associates}->@*;
+my %associate_attributes = $person->{associates}->@[0]->%*;