package HashBasedObject;
sub new {
  my ($class, %arg) = @_;
  bless {%arg}, $class;
}
sub unblessed_copy {
  my $self = shift;
  return {%$self};
}
1;

##</code><code>##

package ArrayBasedObject;
sub new {
  my ($class, @arg) = @_;
  bless [@arg], $class;
}
sub unblessed_copy {
  my $self = shift;
  return [@$self];
}
1;