my $w = 3;
my $str = "abc";
my $line = sprintf "%${w}s ", $str; # still has an error

##</code><code>##

my $line = sprintf "%" . $w . "s ", $str;