sub _least_key { 
     my %self = (@_); 
     shift @{[ sort { $a <=> $b } keys %self ]}; 
   }