#!/usr/bin/env perl

use strict;
use warnings;

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

delete @{$foo}{qw(testing something)};

use Data::Dump;
dd $foo;

##</code><code>##

{ test => "test2" }