PERL вывод номеров

у меня ксть перем $K=10, $x=567;

мне надо что бы я смог выводить что.то вроде print "$K\n" и print $x

и результат был

00010 00567

на 5 позиций с пополнением нулями

.........

отправите по емайоу если можете пожыйлуста

спасибо