sub match
{
  my( $letters, $word ) = map lc, @_;
  return 0 if length $letters < length $word;
  my %letters_in_word;
  $letters_in_word{$_}++ for split //, $word;
  $letters_in_word{$_}-- for split //, $letters;
  for( values %letters_in_word) { return 0 if $_ > 0 }
  return 1
}

print match('ABCDE', 'cab'); #prints 1
print match('abcde', 'cat'); #prints 0

##</code><code>##

.