String Perl

#!/usr/bin/perl -w
$x = 123;
$y = 1234;
$z = 1;
printf("\t x=%3d y=%4d z=%5d\n", $x, $y, $z);