use 5.010;
use strict;
use warnings; 

my $x = 23;
my $y;

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

sub debug {
    my ($fmt, @params) = @_;
    printf "$fmt\n", map { $_ // '' } @params;
}