Your assignments are incorrect... you should be assigning list anonymous array references instead of lists themselves. In this context, you are actually assigning the last element of the list, not the list itself. Try this instead:

$self->{TABLE}{6} = [ "4", "foo", "was", "here" ];
$self->{TABLE}{3} = [ "3", "foo", "was", "here" ];
[download]

-- Mike

--
just,my${.02}