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

##</code><code>##

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