delete $hash{$_} for (sort keys %hash)[0..2];