String Perl

#!usr/bin/perl
use warnings;
use strict;
my $integer = 873;
printf "\t%.2d\n\t%.4d\n\t%.9d\n\n", $integer, $integer, $integer;