Below is the perl suedo code mentioning the problem :

Once again, that is not any different from your previous postings -- it shows no problem

I'm not sure what you're expecting