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