#! perl
use strict;
use warnings;
use Benchmark    'cmpthese';
use Data::Dump;
use experimental 'smartmatch';

my (@x, @y);

cmpthese
(
    100,
    {
        MAP   => sub { @x =  map     { /\d+_(\S*?)\.pl$/ } `ls -l` },
        G_MOD => sub { @y = `ls -l` =~ /\d+_(\S*?)\.pl$/gm         },
    }
);

if (@x ~~ @y)
{
    printf "The arrays are equal; each has %d elements\n", scalar @x;
}
else
{
    print "The arrays are different:";
    dd \@x;
    print "----------\n";
    dd \@y;
}