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;