delete @hash{ grep {/^101$/../^105$/} sort keys %hash };