sub is_anagram {
	return qw( True False )[ eval join 'cmp', map "'$_'", map { join '', sort split '' } @_ ];
}