Select Code to Download

#!/usr/bin/perl -w
use strict;
...
my @array=("ch1","ch11","ch2","ch5","ch55","ch16");

print join ("\n", sort by_the_number_at_the_end @array);