Select Code to Download

#!/usr/bin/perl

...
  for 1 .. $nonstatic;

use Data::Dump 'dd'; dd \@item;

[
  [1, 1, 1],
...
  [2, 2, 1],
  [2, 2, 2],
]