Help for this page
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}};