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