Select Code to Download

my %hash;
@hash{ @array1 } = @array2;
my @array1 = grep( ! /foo/, keys %hash );
my @array2 = map { $hash{$_} } @array1;

my @array = grep
    $_->[0] !~ /someRE/,
...
        0 .. $#array1;
@array1 = map { $_->[0] } @array;
@array2 = map { $_->[1] } @array;