pop grep { $_ <= $value } ( sort { $a <=> $b } keys %hash );