Script pour samba en perl

[Leenox <leenox971@wanadoo.fr>]

bonjour, 
j'ai une liste d'utilisateur du type suivant nommé "utilisateurs.txt": login,group,/home donc concrétement jai des séquences du type:

yoann,administrateur,/data/samba/home/yoann
teddy,developpeur,/data/samba/home/teddy
tibo,commercial,/data/samba/home/tibo
....
etc

Chaque champs étant séparé par une virgule, j'ai donc voulu faire un script en perl pour automatiser tout ca mais je n'arrive pas à faire le script pour parcourir le fichier et en extraire le login pour pouvoir ensuite comparer au fichier /etc/passwd de manière a savoir si l'utilisateur existe ou non pour pouvoir le créer.
Voici mon code meme si il est cour:

#!/usr/bin/perl -w

open (FILEHANDLE, "<utilisateurs.txt") or die ("Impossible d'ouvrir utilisateurs.txt");

while (<FILEHANDLE>)
{
        @list = split(/,/, <FILEHANDLE>);
        foreach $mot (@list) {
            print $mot."\n";
            }
}
close (FILEHANDLE);

Je suis bloqué a ce niveau..