When writing/formatting code, amongst other things I strive to reach two goals:

• Write consistently - ie. don't express the same thing in two different ways
• Write cleanly - don't use more parentheses, braces, brackets, etc. than necessary, but also use enough of them to be clear.

An example for not being consistent in choosing your method names would be

$obj->SetName($value);
$obj->set_title($newtitle);
[download]

As another example, I'm not a fan of too many parentheses. I usually write one of

print join ' - ', grep { -d } @list;
print join(' - ', grep { -d } @list);
[download]

rather than

print(join(' - ', grep({-d}, @list)));
[download]

Especially for Perl built-in functions, a variety of styles exist as many can be called both with and without parentheses. I find myself often leaving away the parentheses, just to have to bring them back in to solve some precedence problem. And then I am left with a weird mixture of functions that use them and functions that don't. An example of things that just happen because of not strong enough habits:

    open(my $fh, '>', $filename);
    print $fh $message;
    myownfunction($param1, $param2);
    close $fh;
[download]

Which brings me to my question (sorry it took so long): What do you guys do to have a consistent style for both Perl built-in functions and your own subroutines?