Select Code to Download

sub word_count {
  my %h;
...
my $s = 'fee fi fo fo fi fee fo fum fum bar baz';
my %h = word_count($s);
print Dumper \%h;