Help for this page

Select Code to Download

Select or download this
```
for my $pair (@$chain) {
```

Select or download this

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

Select or download this
```
#!/usr/bin/perl -wl

...
m3
m4
m5
```