Select Code to Download

#!/usr/bin/env perl
use v5.36;
...
for my ($k, $v) ( unpairs (sort { $a->key cmp $b->key } pairs %h) ) {
    say "$k => $v";
}