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