#!/usr/bin/perl

use warnings;
use strict;

sub char_iterator(\$){
	my $str = shift;
	my $count = 0;
	return sub {
		 	if (wantarray){
				my ($tc,$len) = ($count, (length($$str) - $count) );
				$count = length($$str);
				return split('', substr($$str,$tc,$len));
			}else{
				return substr($$str,$count++,1);	
			}
	       }
}


my $string = join('', ('a'..'z') x 3);


my $chariter = char_iterator($string);

# Get one char at a time.
while(my $char = $chariter->() ){
	print "Got $char\n";
}

# Get it in list context.
my $mapiter = char_iterator($string);
my @upper = map { uc($_)."\n" } $mapiter->();
print @upper;