use strict;
use warnings;
use Text::CSV;

my $fileStr = <<FILE;
Line,Name,Colour,Comment
1,Fred,Blue,"Comment with a comma, and stuff."
2,Joe,Green,No comma so no need for quotes
3,Bob,Red,"""A comma, and quotes"""
4,Sam,Yellow,"Penultimate line, but
split across two input lines"
5,Bill,Violet,And an ordinary line to finish
FILE

my $csv = Text::CSV->new({binary => 1, eol => $/});

open my $io, "<", \$fileStr;
my @headers = @{$csv->getline($io)};

while (my $row = $csv->getline($io)) {
    print "File line $.\n";
    print "  $headers[$_]: '$row->[$_]'\n" for reverse 0 .. $#$row;
}