my $in_A    = [
    [ 0, 1, 2, 3 ],
    [ 9, 8, 4, 1 ],
];
my $in_B    = [
    ...
];
my $out     = [
    ....
];