>>699

my $self=bless {'cnt'=>0},$class;

sub core{
tie my %hash,'Tie::IxHash';
my $self=shift;
%hash=@_;
my $c=$self->{cnt};
tie %{$self->{res}->[$c]},'Tie::IxHash';
%{$self->{res}->[$c]}=%hash;
$self->{cnt}++;
}