sort  { substr($a, 6) <=> substr($b, 6)} @array