Select Code to Download

my %lookup = map { $_ => 1 } @arraytocompare;

...
        push (@newarray, $strfile); 
    };
};