my $sentence = 'This is a test';
my %hash = map { $_, 1 } ($sentence =~ /\w+/g);

##</code><code>##

my $sentence = 'This is a test';
my %hash;
for ($sentence =~ /\w+/g) {
    $hash{ $_ }++;
}