format STDOUT =
just 5 digits: @>>>>
 $n,    
.

$n = 123456789;  write;   
$n = 987654321;  write;   
$n = 333;        write;