undef @h{ 1 .. 8 };;

print keys %h;;
6 3 7 2 8 1 4 5

undef @h{ 9 ..  16 };;
delete $h{ $_ } for 9 .. 16;;

print keys %h;;
7 2 1 6 3 8 4 5