sub test {
  say "You are in the method";
  yield 1;
  say "You are again back to the method";
  yield 2;
}


test b{ say "You are in the block $_[0]" };