#!perl

my @lines=<DATA>;

for my $line (@lines) {
    chomp $line;
    my @arr = split/,/,$line;
    print "$arr[0]: $arr[1], $arr[2] and $arr[3]\n";
}

__DATA__
name1,a1,b1,c1
name2,a2,b2,c2