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