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