Select Code to Download

#! /usr/local/bin/perl -w

...
    my $r = shift;
    return "array $r->[0], offset $r->[1]";
}

saw 204..207
        array 1, offset 1
...
        array 2, offset 1
        array 4, offset 2
        array 3, offset 2