delete $hash{ pop  @epochOrderKeys } while @epochOrderKeys > 10;

##</code><code>##

$#epochOrderKeys = 9 if $#epochOrderKeys > 9;

##</code><code>##

%hash = @hash[ @epochOrderKeys ];