sub included{ 
  my %h;
  $h{$_}++ for split //,$_[1];
  for (split //,$_[0]) { return 0 if --$h{$_} < 0 }
  return 1;
}