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}; }