printf("%06d\n",$_) for (123, 1234, 12345, 123456);

my $val = sprintf("%06d",123);