Thanks lnickt

indeed. in fact i forgot to delete a line.. I am beginner in Perl and i am coding in parallel in Java. Sometimes it doesn't help to see clearly the things

Thanks for the support. Appreciated