sub test { # 5 important lines while ($x) { # 10 lines of good stuff } for (1..5) { # 100 lines of crap } } #### sub test { # 5 important lines while ($x) { ... } } for (1..5) { ... } }