my @result = map { 
    my @row = split /,/ => $_; 
    $row[$column_number] } @lines;

##</code><code>##

a,b,"hello, world",c,d