> foreach my $address (@arrays) {

s/@arrays/@array/