say "1..2";
my $ok1 = "k 1";
say "o$ok1";
my $space = " ";
say "o"~"k"~"$space"~2;