Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
  @{ $AoA[-1] } < $C ? $_ : [ $_ ] for @list;

use Data::Dump 'dd'; dd \@list; dd \@AoA;

Select or download this

[1 .. 12]
[[1 .. 4], [5 .. 8], [9 .. 12]]