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