use Iterator_Utils qw/:all/;

my @data = (1, 2, 3);

my $data_iter = list_iterator(@data);


$f1 = sub { $_ + 1 };
$f2 = sub { log($_) };
$f3 = sub { $_ * 3 };

my $iter = $data_iter;
for my $func ($f1, $f2, $f3) {
	$iter = imap($func, $iter);
}

while (my $item = NEXTVAL($iter)) {
	print $item, "\n";
}