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

my %hash = (
    "apples   "  => 4,
    "oranges   " => 5
);

%hash = map {
    my $val = $hash{$_};
    s/\s+$//;
    $_, $val
} keys %hash;

print Dumper \%hash;