@sorted = sort { substr($a, 1) <=> substr($b, 1) } @data