while (my $row = $csv->getline($io)) {
    push @DD, $row;
}