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