Select Code to Download

my @array1 = ...;
my @array2 = ...;
...
}
die "Failure" if grep $_, values %hash;
print "Success";

my @array1 = ...;
my @array2 = ...;
...
delete @hash{@array2};
die "Failure" if %hash;
print "Success";