perl -wE '
my @foo = (1, 2, 3);
my @bar = (1, 2, 3);
my @baz = (1, 2, 4);
say "@foo" eq "@bar";
say "@foo" eq "@baz";
'
1


##</code><code>##

perl -MTest::Deep::NoTest=eq_deeply -wE '
my @foo = (1, 2, 3);
my @bar = (1, 2, 3);
my @baz = (1, 2, 4);
say eq_deeply \@foo, \@bar;
say eq_deeply \@foo, \@baz;
'
1
0

##</code><code>##

perl -wE '
my @foo = (1, 2, 3);
my @bar = (1, 2, 3);
my @baz = (1, 2, 4);
say @foo ~~ @bar;
say @foo ~~ @baz;
'
Smartmatch is experimental at -e line 5.
Smartmatch is experimental at -e line 6.
1