foreach my $coord_no (keys %{$$coordinates{$group}{$id}{$stage}{"coords"}}) {…}