sub new {
     my ($class, @array) = @_;
     my $self = [ @array ];
     bless $self, $class;
}