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