$ perl -MData::Dump -e " $f = { 1..8 }; delete @$f{1..4}; dd$f; "
{ 5 => 6, 7 => 8 }