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