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


while ( my ($k3,$v3) = each @$v2 ) {
    print "\$v2->[$k3] => '$v3'\n"
}