my $total = 0;
  for my $v ( values %Your_Hash_name ){
    $total += $v;
  }
  # Can also be written as:
  #     $total += $_ for values %Your_Hash_Name;
  print "Total: $total\n";