for my $coord (keys %lengths) {
   for (@{$lengths{$coord}{z}}) {
      print "$_\n";
   }
}