This is looks like a good case for top-down programming.

List each of the steps required to get the job done. Make these comments in your program. After each comment, write code that does that thing, either as a subroutine call or a statement. Step through the program using the debugger, confirming that the variables have the values that you expect.

Note that none of this is specific to Perl -- it's more a matter of programmer craftmanship.

Also, I think you'll find that glob returns a list -- you have assigned a list to a single scalar, so the result may not be what you expect. Reference: p.84, The Camel, 3rd Edition

Finally, you will get many people telling you to use strict and to use the -w flag when writing code -- even the most trivial examples. They are right. :) It will save you more time than you can imagine. Listen to what Perl is asking you to fix, and fix it.

Happy coding!

--t. alex

"Nyahhh (munch, munch) What's up, Doc?" --Bugs Bunny