for my $pair (@$chain) {

##</code><code>##

while (@$chain) {
    my $pair = shift @$chain;

##</code><code>##

#!/usr/bin/perl -wl

AUTOLOAD {
    print $::AUTOLOAD =~ /.*::(.*)/s;
    $_[0];
}

my $chain1 = sub { $_[0]->m2->m3 };
my $chain2 = sub { $_[0]->m1->$chain1->m4->m5 };

main::->$chain2;

__END__
m1
m2
m3
m4
m5