Select Code to Download

package Person;

our $address_1;
our $address_2;
our $address_3;

my @lines;
foreach my $num (1..3) {
    push(@lines, $Person::address_$num);
}