#!/usr/bin/env perl

use v5.36;

use strict;
use warnings;
use Benchmark qw(cmpthese);
use List::Util qw(mesh);

my @array = ('a' .. 'z');

cmpthese(
    -5,
    {
        mapped => \&mapped,
        meshed => \&meshed,
    },
);

sub mapped {
    return [map {$_,$_} @array];
}

sub meshed {
    return [mesh \@array, \@array];
}