while (my $key = $remaining_keys->next())
{
  ...;
}