use DotsForArrows;

package MyClass;

sub new { bless [$_[1], 1..10], $_[0] }
sub next { my ($self) = @_; return "next is: " . shift(@$self) . "\n" }

package main;

my ($str1, $str2) = ("a", "z");
my $obj = MyClass.new($str1 . $str2);

print $obj.next() for 1..10;

print $obj.[0] . "\n";

my $next = 'next';
print $obj.$next;

#etc.