sub set_of_initials
    {
        my %h;
        local $" = "\n";
        @h{ "@_" =~ /^./sg } = ();
        sort keys %h
    }

    @b = set_of_initials( @a );