@array = map {substr($_,2)} @array;
my @sorted = sort { $a <=> $b } @array;
@sorted = map { "ch$_" } @sorted;