while (<DATA>) {
    chomp;
    for my $path (split m=/break/=) {
        DiveVal(\%hash, split m=/=, $path);
    }
}