Autodeferring

 for (@FILE) {
 s/^/>> /;
 }

• Loops like this are common

• Tie::File detects these and enables deferred writing automatically

• Then disables it again when you're done

• Unless you don't want that:

 tie @FILE, 'Tie::File', $myfile, autodefer => 0;