[1][2][3][4,5,6]
1 1 1 0 0
[1][2][3,4][5,6]
1 1 0 1 0
[1][2][3,4,5][6]
1 1 0 0 1
[1][2,3][4][5,6]
1 0 1 1 0
[1][2,3][4,5][6]
1 0 1 0 1
[1][2,3,4][5][6]
1 0 0 1 1
[1,2][3][4][5,6]
0 1 1 1 0
[1,2][3][4,5][6]
0 1 1 0 1
[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;
use Data::Dumper;
my @categories = qw/
11100
11010
11001
10110
10101
10011
01110
01101
01011
00111
/;
@categories = sort @categories;
my @cat2 =
sort { $a <=> $b }
map { ord pack 'b*', $_ }
@categories;
print Dumper \@categories, \@cat2;
##
##
$VAR1 = [
'00111',
'01011',
'01101',
'01110',
'10011',
'10101',
'10110',
'11001',
'11010',
'11100'
];
$VAR2 = [
7,
11,
13,
14,
19,
21,
22,
25,
26,
28
];