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