#!/usr/bin/perl
use strict;
use warnings;

my $x = "a_long_string";

print "*using a single field:\n";
printf "%3s\n","a";
printf "%3s\n","abc";
printf "%3s\n",$x;

print "\n*using format with 2 fields:\n";
printf "%3s%4s\n", "abc", "a";
printf "%3s%4s\n", "abc", "abcd";
printf "%3s%4s\n", $x, "abcd";
printf "%3d%3d\n", 123, 456;

#
# better, use a explict space between format fields
#

print "\n*using explict space between 2 fields\n";
printf "%3s %4s\n", $x, "abcd";
printf "%3d %3d\n", 123789, 456;

__END__
*using a single field:
  a
abc
a_long_string

*using format with 2 fields:
abc   a
abcabcd
a_long_stringabcd
123456

*using explict space between 2 fields
a_long_string abcd
123789 456