in reply to sorting an array

map {"ch$_"} sort {$a <=> $b} map {/(\d+)/} @array

[download]
should do.

In Section Seekers of Perl Wisdom