package Person;
our @addresses;

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