#!/usr/bin/env perl use v5.36; use List::Util qw /pairs pairvalues pairmap/;