sun@icgeb - just to make it clear - in order to help you, you need to help us by using proper markup (formatting tags) in your posts, and reading Markup in the Monastery should help you with any questions.

Secondly, if you are new to perl, and looking at what you have posted already, you should always use strictures i.e.

use strict;
use warnings;
## and possibly if you want a little more explanations of those warnin
+gs
use diagnostics;
[download]

This will at least force you to post code here that at least compiles, even if it doesn't give you what you want.
Then you can say things like "I have this code which i want to do X or think should do Y:"

...code...
[download]

"...which gives this error..."

...error message...
and/or
...output from the code...
[download]

"...What am i doing wrong!?"...

Hope this helps.