use strict;
use warnings;
no warnings 'experimental::signatures';
use feature qw/say signatures/;
use List::Util qw(all);

BEGIN {
  
  ( *array_numeq,*array_streq )
    = map {
      my $compare = $_;
      + sub :prototype(\@\@) ($l,$r) {
        @$l == @$r &&
        all { $compare->($l->[$_],$r->[$_]) } 0 .. $#$l
      }
    } sub { shift == shift }, sub { shift eq shift }

}

my @left  = ( 1, 2, 3 );
my @right = ( 1, 2, 3 );

{
  local $" = ',';
  say "(@left) ",
      ( array_numeq @left, @right ) ? "matches" : "doesn't match",
      " (@right)";
}