my $num = 40000;
printf('%4.0f', $num);
print "\n";