# TestHash.pm

use strict;
use warnings;

package TestHash;

sub TIEHASH {
  return bless [], $_[0];
}

sub FIRSTKEY {
  return undef;
}

sub NEXTKEY {
  my ($this, $last) = @_;
  return $last >= 10 ? undef : $last + 1;
}