perl -e"my %h;" -nle
"++$h{$_}for split'';print'is ',(grep{1<$_}values%h)?'not ':'','an isogram'"
fred
is an isogram
bill
is not an isogram
Terminating on signal SIGINT(2)