Bonjour a tous je cherche un script perl pour réalisé un nouveau fichier a chaque fois que l'on rencontre une nouvelle donée dans une colonne définit

par exemple:

fichier1

A 1 3
A 1 4
B 6 9
B 7 8

lancement du script crée deux nouveaux fichiers

fichier 2 fichier3

A 1 3 B 6 9
A 1 4 B 7 8

Un petit coup de main ? merci d'avance =)