sub test {
    # 5 important lines
    while ($x) { ... }
    }
    for (1..5) { ... }
   }