> foreach my $address (@arrays) {

s/@arrays/@array/
[download]

Just in case he copies it verbatim.