Select Code to Download

use Data::Dump 'pp'; # only used for output

...
} @data;
pp @sorted;

(
  [0, 0, 2, 2, 2],
...
  [0, 2, 2, 0, 0],
  [2, 2, 2, 0, 0],
)