sub new {
...
...

$self->{TABLE}{6} = ("4", foo", "was", "here");
$self->{TABLE}{3} = ("3", foo", "was", "here");
...
...
bless ( $self, $class);
return $self;