[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

##</code><code>##

#!/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;

##</code><code>##

$VAR1 = [
          '00111',
          '01011',
          '01101',
          '01110',
          '10011',
          '10101',
          '10110',
          '11001',
          '11010',
          '11100'
        ];
$VAR2 = [
          7,
          11,
          13,
          14,
          19,
          21,
          22,
          25,
          26,
          28
        ];