sub abc()
{
  $_ = 'x';
}

sub xyz()
{
  foreach(4..5)
  {
    print "  Before:$_\n";
    print "  After:$_\n";
  }
}

foreach(1..2)
{
  print "Before:$_\n";
  xyz();
  print "Mid:$_\n";
  abc();
  print "After:$_\n";
}