Select Code to Download

use strict;
use warnings;
...
        print "mismatch: [@{$_->[0]}], [@{$_->[1]}]\n";
    }
}

mismatch: [1 12 34 50], [1 1234 50]
match: [1 12 34 50], [34 12 1 50]