foreach my $line (@arr2) {