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

##</code><code>##

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