Select Code to Download

@foo = map { '%'.$_.'%' } @foo;

my @new_foo;
foreach my $a_foo (@foo) {
...
   push @new_foo, $a_foo;
}
@foo = @new_foo;