my @sorted = sort keys %{{map{substr($_,0,1 ),1} @original_array}};