use 5.010;
use strict;
use warnings;

my $x = 23;
my $y;

debug("x='$x' y='$y'");
debug(sprintf "x='%s' y='%s'", ($x // ''), ($y // ''));

sub debug {
    say shift

}