Thank you roboticus that seems like what I am looking for. Can you give me an example of how to patch up the data, thats where I have been stuck on for some time. Thanks for your help

# Patch up the data
for (my $i=1; $i < $#table; ++$i) {
   # check surrounding items and patch the data, as needed
   . . .
}
[download]