I show solution himself in this message.
I mean this information will be usefull for PerlMonks community.
May be my English is hard to understand. I have poor English.