Help for this page

Select Code to Download

Select or download this

package Person;
our @addresses;
...
for my $i (0..$#Person::addresses) {
    push @lines, $Person::addresses[$i];
}