There are several ways to do this. Here are two:

$int = 5; sprintf "%0${int}i", $myint;
$int = 5; sprintf "%0*i", $int, $myint;
[download]