Select Code to Download

my ( %fruits, %newHASH );

...
        }
    }
}

%HASH
    $country
        $fruit = 1
        $fruit = 1

%HASH
    $country = [ $fruit, $fruit... ]