Help for this page
my @result = map { my @row = split /,/ => $_; $row[$column_number] } @lines;
a,b,"hello, world",c,d