sub is_iso {
grep$_>1,map++$c{$_},split//
}