Select Code to Download

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

#!/usr/bin/env perl

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

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

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