Update:

Oops!!! I have given script to remove white spaces from values of hash...

I want to delete all the spaces at the end of each element

use strict;
use warnings;
use Data::Dumper;

my %var_h =(1 => "  value", "2" => "two  ");
s/(\s+)$//g for values %var_h;
print Dumper \%var_h;
[download]

The element should only consist of characters, no spaces at all.

use strict;
use warnings;
use Data::Dumper;

my %var_h =(1 => "  value", "2" => "two  ");
s/\s+//g for values %var_h;
print Dumper \%var_h;
[download]

---

All is well