Select Code to Download

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

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