sub GetMaxValue { my $self=shift; my $val;

        foreach (values %{$self->{data}})
        {
                $val=$_ if $_>$val;
        }

        return $val;
}

sub GetMinValue { my $self=shift; my $val;

        foreach (values %{$self->{data}})
        {
                $val=$_ if ($_<$val) || (!$val);
        }

        return $val;
}

sub GetIndex { my $self=shift; my $null;

        foreach (keys %{$self->{data}}){$null++}

        return $null;
}

sub GetValues { my $self=shift; #return %{$self->{data}}; return $self->{data}; }