#!/usr/bin/env perl
use v5.36;
no warnings q/experimental::for_list/;
for my ( $k, $v ) (%ENV){
    say "$k=$v";
} say "Done";