perl

printf('%0'.$b.'d', $a);

Ответ находится в 'perldoc -f sprintf'

$a = sprintf("%.*d", $b, $a);

$a=123; $b=7; for ($i=0 ; $i<=$b; $i++) { $a = $i.$a; } код негде проверить , но по идее в смысле если тебе надо не вывести переменную $a на stdout ,а иметь в теле проги.

> по идее в смысле если тебе надо не вывести переменную $a на stdout ,а иметь в теле проги

тогда вместо printf - sprintf