#! /usr/bin/perl
use warnings;
use strict;
use feature 'state';

sub frobnicate {
    state $f = 0;
    $f += shift;
    $f
}

my @data = ( [ 1, 1, 1 ],
             [ 1, 2, 3 ],
             [ 4, 4, 4 ],
);

for my $block (@data) {
    my $block_result = 0;
    for my $element (@$block) {
        $block_result = frobnicate($element);
    }
    print $block_result, "\n";
}

print "Versus\n";

for my $block (@data) {
    my $frobnicate = sub {
        state $f = 0;
        $f += shift;
        $f
    };
    my $block_result = 0;
    for my $element (@$block) {
        $block_result = $frobnicate->($element);
    }
    print $block_result, "\n";
}
[download]

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]