Select Code to Download

perl -wMstrict -MData::Compare -E 'my @a=qw(1 2 a b); my @b=qw(1 2 a b
+); say Compare(\@a, \@b);'
1

perl -wMstrict -MData::Compare -E 'my @a=qw(1 3 a b); my @b=qw(1 2 a b
+); say Compare(\@a, \@b);'
0