Select Code to Download

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

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