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