sub not_isogram {
    # ...
}
print "$_ is ", (not_isogram() ? '': 'not '), "an isogram\n" for @ARGV;