Ah ok. Couldn't really see the eventual purpose :)
General notes: declare "my" variables as late as possible: if you declare them inside a block (delineated delimited by braces), the variable won't be accessible (generally speaking) outside that block:

my $foo;
if($somevalue) {
   my $bar = "baz";
   $foo    = "monkey";
}
[download]

In this piece of code, $bar is only accessible inside the if block. $bar, on the other hand, will disappear (or "go out of scope") as soon as the compiler reaches the closing "}".

Declaring variables as late as possible is generally considered a Good Thing (this is probably an oversimplification, but it's a good start).

I know I've said it already, but use Data::Dumper; to inspect variables.

If you show what eventual output you want from this code, you'll probably get a response showing you one way of getting it.