#get Data
    sub get
    {
        my $self = shift;
        my %find = %{$_[0]};
        my %splitrow;
        my %found;
        my $dcmp;
        my @output;
        my $datarow;
        my $fit;            

       if(defined $_[0]){
            for ($datarow = 0; $datarow < @{$self->{'data'}}; $datarow++){               
               %splitrow = %{$self->unstring (${$self->{'data'}}[$datarow])};
               
                $fit = 1;
               
                foreach $dcmp (keys(%find)){               
                  if ($find{$dcmp} ne $splitrow{$dcmp}) {               
                    $fit = 0;               
                  }               
                }               
               if ($fit == 1) {               
                 push(@output, $self->unstring (${$self->{'data'}}[$datarow]));               
               }    
            }
        }
        else{
            for ($datarow = 0; $datarow < @{$self->{'data'}}; $datarow++){
               push(@output, $self->unstring (${$self->{'data'}}[$datarow]));
            }
        }
        return \@output;
    }