my @look_for = ( \$name, \$nerd, \$noodle, \$froodle );
foreach my $item ( @look_for ) {
    $$item =~ s/$i_seek/ /g;
}