Select Code to Download

sub count {
   my $str = shift;
...
   $h{$_}++ for split //, $str;
   return \%h;
}

sub check {
   my ($target, $word) = @_;
...
   }
   return 1;
}