my @key = sort { $contentsRef->{$a} <=> $contentsRef->{$b} } keys %{$contentsRef};
my $max = $contentsRef->{$key[-1]};