perl -ne 'push@{$ndx{uc substr($_,0,1)}},$_;END{for(sort keys%ndx){print":$_:\n",@{$ndx{$_}}}}' sorted.txt