foreach my $row (@sorted_urls) {
    DPeek ($row);
    $csv->parse ($row);

    my @csv = $csv->fields;         #using Text::CSV
    my @row = split m/\|/ => $row;  #using split on same $row

    DPeek "CSV:   $csv[0]";
    DPeek "SPLIT: $row[0]";
    }