reading from a .csv file

Hi ,
Can anyone please help me to read the value from the .csv file?

This is my .csv file:
dirnames: first,second

i want to get the two names and create directories correspondingly

#!/usr/bin/perl

open (FD, "file.txt");
foreach $line (<FD>)
{
$line =~ /(.): (.*),(.)/;
$dirname = $1;
$first = $2;
$second = $3;
# process with $first and $second whatever you want to do .....
}

Hope this will work.