Select Code to Download

[1][2][3][4,5,6]
...
 0 1  0 1  1
[1,2,3][4][5][6]
 0 0 1  1  1

#!/usr/bin/perl -w 
use strict;
...
        @categories;

print Dumper \@categories, \@cat2;

$VAR1 = [
          '00111',
...
          26,
          28
        ];