@list = ("%03i", $variable);
$varWith0 = sprintf(@list);