my $x = 1;
my $y = 2;
my $str1 = sprintf "%02d %02d\n", $x, $y;
print "$str1\n";
my $str2 = "$x $y";
print "$str2\n";