perlだとこんな感じ
my $i = 0;
push my @a, sub(){ print $i, "\n" };
$i = 1;
push @a, sub(){ print $i, "\n" };
$a[0]->();
$a[1]->();

javascriptだとこんな感じ（アドレス欄にうちこんで実行汁）
javascript: void(function(){var i=0;var al=new Array();al.push(function(){document.write(i+"<br/>");});i=1;al.push(function(){document.write(i+"<br/>");});al[0]();al[1]();}())