use List::Util qw(max);
my $max = max(values %{$contentsRef});