debugger output:
...
main::(cheese.pl:4):    my $need_to_interpolate = "smell my %s\n";
  DB<1> s
main::(cheese.pl:5):    printf $need_to_interpolate, $string;
  DB<1> x %s
  empty array
....