Select Code to Download

my %hash1 = ( 1  => '1',
...
for (@array){
     delete $hash1{$_};
}

for (@array){
     delete $hash1{$_} if exists $hash1{$_};
}