You keep ignoring the advice given to your previous posts and by perl itself, you've not shown the code you are running. This isn't a code writing service.