$ perl
use strict;
use warnings;
my @arr = qw ( 397 1234565 129837 12387621 21365 1 123123 );
printf("%010d\n", $_) for @arr;
print("-" x 10 . "\n");
printf("%+10d\n", $_) for @arr;
print("-" x 10 . "\n");
printf("%10s\n", $_) for @arr;
print("-" x 10 . "\n");
printf("%-10s\n", $_) for @arr;
__END__
0000000397
0001234565
0000129837
0012387621
0000021365
0000000001
0000123123
----------
      +397
  +1234565
   +129837
 +12387621
    +21365
        +1
   +123123
----------
       397
   1234565
    129837
  12387621
     21365
         1
    123123
----------
397
1234565
129837
12387621
21365
1
123123