"...I see this through benchmark..."

You might try Iterator::Simple:

#!/usr/bin/env perl

use strict;
use warnings;
# use feature qw (say);
use Iterator::Simple qw(iter);

my $iterator = iter( [ 1 .. 4 ] );

while ( defined( my $i = $iterator->() ) ) {
    # warp action goes here
}
[download]

See also Bleeding edge as well as Re^2: Useful number of childs revisited.

Regards, Karl