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