my $v2 = [
    'state_name=Puerto Rico',
    'county_names_all=Adjuntas|Utuado',
];


my %h3 = map { split /=/,$_,2 } @$v2;

print Dumper \%h3;