Have you heard that Perl has loops?

Also, you never change $version and $jobnumber.

Maybe you want to reconsider using one of the approaches I've already outlined.