#!/usr/bin/perl -w
use strict;

for (150, 1000)
{
   print "x" x (8-length($_));
   print "$_\n";
}
__END__
xxxxx150
xxxx1000
[download]