Please, please, use <code> tags so your code stands out as code. Still I tried and read your post, and it doesn't seem it can survive a use strict. So start by adding this on top of your code:

#!/usr/local/bin/perl
use strict;
use warnings
use diagnostics;

... your code here...
[download]

When you're rid of all error messages, and your code still doesn't work as expected, then you can come back here.

--bwana147