#!/usr/local/bin/perl -w
use strict;

my %letter;
foreach (<DATA>) {
    s/^(.)/$letter{$1}++ ? $1 : ":$1:\n$1"/e;
    print;
}

__DATA__
AA for apple
A for apple
...