my $foo = { 
  testing => bar,
  test => test2,
  something => test3
}

##</code><code>##

foreach (qw/fields here to delete/) {
   delete $foo->{$_};
}