You can shorten that further:

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

12 fewer strokes :)