Select Code to Download

sub debug {
  warn join '', map $_ // '<undef>', @_, "\n";
...
# and then...
debug "x=", $x, " y=", $y;

sub debugf {
  my $fmt = shift;
...
}

debugf "x=%s y=%s", $x, $y; # <-- always using %s!