# 5.36 - for loops

    use v5.36;
    use experimental qw/ for_list /;
    my %hash = (apples => 23, oranges => 4);
    for my ($key, $value) (%hash) {
        say "$key: $value";
    }

    my @coords = (3,4,7, 1,1,2, 5,5,3);
    for my ($x, $y, $z) (@coords) {
        say "$x,$y,$z";
    }