This isn't a Linux support site. You've already been told that this site is for helping people learn perl and address problems with their perl code. You seem be treating this as a code writing service which it is not. We are not here to do your job for you.