sub is_anagram {
	my %hash;
	map { $hash{ join '', sort split '' } ++ } @_;
	return 2 > keys %hash ? 'True' : 'False';
}