my @doubled = mesh \@array, \@array;

##</code><code>##

#!/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];
}

##</code><code>##

           Rate mapped meshed
mapped 111262/s     --   -51%
meshed 226692/s   104%     --

##</code><code>##

         Rate mapped meshed
mapped 4157/s     --   -50%
meshed 8262/s    99%     --