my $csv = Text::CSV->new ({ binary => 1, sep_char => "|" });
foreach my $row (@sorted_urls){
 $csv->parse($row);
# processing
}