[Perl] Uzupelnienie wiersza zerami na końcu

[Mat.Monia]

Witajcie!
Chcialabym w Perlu wiersze uzupelnic zerami.

Kod: Zaznacz cały

my $num = "123";
$num = sprintf("%06d ", $num);
$num=~ tr//0/;

Jednakze nie wiem jak to zrobic, aby zera byly dopisywane na konu linii a nie na pocztku.