Select Code to Download

use warnings;
use strict;

...
foreach my $item (@array1) {
   print "$item\n" if ! exists $hash{$item};
}