Okay, now that we have the script we just need the input. Meaning the data returned by the database or at least a legend showing what kind of data is returned.

But apart from this you might want to 'pepper' your perl script with a lot of print statements that will print out...

• the hash after you received it from the database (Data::Dumper helps).
• the key you get returned from foreach ($_)
• the value you are accessing ($data{$_})
• the variables you split the data into
• $specifics, each time you ran a substitute on it

The above exercise is called 'Debugging with print'. :)

Now that you are printing all your data every step of the process, you can see where things go not as you expect them to.

/oliver