Select Code to Download

use strict;
use warnings;
...
print join "\n", 'Non-matched1:', @{ $n1 }, "\n";
print join "\n", 'Non-matched2:', @{ $n2 }, "\n";