sub isogram {
#23456789
/(.).*\1/
}

print "$_ is ", (isogram() ? '' : 'not '), "an isogram\n" for @ARGV;