Select Code to Download

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

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