my $var1, $var2, $var3, $var4, $var5; #hopefully you'll be using some meaningful names instead

my $format = "%5s%15s%5s%15s%5s\n"; #you could embed spaces in the format specifier too if needed

#check/process inputs here 
#....

$outputline = sprintf $format, $var1, $var2, $var3, $var4, $var5;



##</code><code>##


my $format = "%5s%5s%5s%5s%5s"."%5s%5s%5s%5s%5s"."%5s%5s%5s%5s%5s".
             "%5s%5s%5s%5s%5s"."%5s%5s%5s%5s%5s"."%5s%5s%5s%5s%5s".
             "%5s%5s%5s%5s%5s"."%5s%5s%5s%5s%5s";

my $otherformat" = "%5s"x40;