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

local $/;
my $data = <DATA>;

my %letter;
$data =~ s/^(.)/$letter{$1}++ ? $1 : ":$1:\n$1"/emg;
print "$data";

__DATA__
AA for apple
A for apple
...