sub xyz()
{
  foreach local $_ (4..5)
  {
    ...