my %localdog;
if(@_ == 2  && ref($_[1]) eq 'HASH') {
#named params
     my $hvref = $_[1];
     $localdog{name} = $hvref->{name};
     $localdog{color} = $hvref->{color};
}
else{
     $localdog{name} = $_[1];
     $localdog{color} = $_[2];
}