Help for this page
#!/usr/bin/perl use warnings; ... __DATA__ f1/f2/f3/f4/break/f1/f2/f5/break/f1/f2/f6
while (<DATA>) { chomp; ... DiveVal(\%hash, split m=/=, $path); } }