my @sorted = sort { substr($a, 10) cmp substr($b, 10) } @data;