sub is_anagram {
   my ($word, $test) = @_;

   foreach my $letter (split(//, $word)) {
      return unless $test =~ s/$letter//;
   }
   return if $test;  # leftovers
   return 1;
}