#!/usr/bin/perl

use strict;
use warnings;

use dogandcat;

my @cat = ("cat:a,b,c,d,e,f","cat2:g,h,i,j,k,l,m");
my @dog = ("dog1:1,2,3,4,5,6,7","dog2:21,22,23,24,25");

my $object1 = dogandcat->new (data =>\@cat);
print "this is cat data   \n", @{$object1->{_data}}, "\n";
print "this is cat keys   \n", keys %{$object1->{_hash}}, "\n";

my $object2 = dogandcat->new (data => \@dog);
print "this is dog data   \n", @{$object2->{_data}}, "\n";
print "this is dog keys   \n", keys %{$object2->{_hash}}, "\n";

print "\nbut....after creates the second object\n";

print "this is cat data   \n", @{$object1->{_data}}, "\n";
print "this should be cat keys   \n", keys %{$object1->{_hash}}, "\n";

print "this is dog data   \n", @{$object2->{_data}}, "\n";
print "this is dog keys   \n", keys %{$object2->{_hash}}, "\n";


exit;