*laughs* - damn I'm too slow.
I suggest List::Util for this task.

#!/usr/bin/perl

use strict;
use warnings;
use List::Util qw(first max);

my %hashName = ( "term1" => 83, "term2" => 20, "term3" => 193 );
my $max = max values %hashName;
print $max, "\n";
[download]