use warnings;
use strict;

my %lengths = (c1 => {z => [1..5]});
for my $coord (keys %lengths) {
   for (@{ $lengths{$coord}{z} }) {
      print "$_\n";
   }
}

__END__

1
2
3
4
5