Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...

use Data::Dump;
dd \@sorted;

Select or download this

[
  [4, 0, 0, 0],
...
  [0, 2, 0, 0],
  [0, 3, 0, 0],
]