my $len = 10; print "1: [", sprintf("%${len}s", "*"), "]\n"; print "2: [", sprintf("%*s", $len, "*"), "]\n";