#!/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
}