for my $component ( split(/,/, $components_csv) ) {
    if (grep { $_ eq $component } @url_components) {
        push( @selected_components, $component);
        next;
    }

    # ...
}