You don't see closures enough? Well, here's a closure for you. A closure with one variable from an outside scope: itself. (You need to allow code to be at least 77 columns wide to benefit optimally from the formatting)

$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; 
+$chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> (
+) -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> (
+) -> ()
[download]

-- Abigail