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