language: Perl (perl 5.16.2)
date: 221 days 9 hours ago
link:
visibility: public
1
2
3
4
my @raw_array = ('H01578','H01579','H01580','H01581','H01582','H01583','H01584','H00536','H00537','H00538','H01585','H01586','H01587','H01588','H01589','H01590');
my @sorted_array = sort {substr($a, 1) <=> substr($b,2)} @raw_array ;
 
print join("\n", @sorted_array);