package HashTable;
use strict;
use List;

sub new {
  my $class = shift;
  my $self = {};
  $self->{array} = [];
  my $i;
  for ($i=0; $i<1000; $i++) {
    $self->{array}->[$i] = List->new();
  }
  bless $self, $class;
}
sub hashFunction {
  my $self = shift;
  my $key = shift;
  return $key % 1000;
}
sub insert {
  my $self = shift;
  my $key = shift;
  my $obj = shift;
  $self->{array}->[$self->hashFunction($key)]->enqueue($key,$obj);
}
sub find {
  my $self = shift;
  my $key = shift;
  return $self->{array}->[$self->hashFunction($key)]->find($key);

}
1;