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);