use strict; use warnings; for my $product (@products) { next unless exists $product->{'Vendor Item ID'}; for my $config_element (@config) { next unless exists $config_element->{'Vendor'}; if ($config_element->{'Vendor'} =~ $product->{'Name'}) { my $url = $config_element->{'URL'}; $url =~ s/\*/$product->{'Vendor Item ID'}/g; $product->{'TaggedID'} = $url; } } }