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