foreach my $words (keys %hash)
{
   if ($words =~ /( )*$/)
   {
       delete $1;
   }
}