Select Code to Download

use strict;
use Data::Dumper;
...
   $j++ unless ++$i % 4;
}
print Dumper $tab;

$VAR1 = [
          [
...
            10
          ]
        ];