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