I like to think that I speak a fairly 5.6 dialect of perl. :-) Some things that I do and dont do are

• I dont use -w, I do use warnings;
• I dont use map/grep in void context
• I often use map, less so grep
• I do use logical operators as flow control statements
• I try to use statement modifiers instead of composite statements as much as possible
• I try to write my code so it uses as few parens and brackets as possible
• I often use code templating techniques
• I ususally do OO modules
• When writing non OO modules that are more than just a subroutine library I very often write my own import to provide more intelligent interfaces. A module can be treated as a subroutine from the point of view of the interface that import provides.
• Occasionally I use named paramaters for methods/subs, but usually only for constructors.
• I never use code filters.
• When writing recursive routines I usually use a named wrapper and then an anonymous sub to do the recursion

  sub recurse_inorder {
    my $self=shift;
    my @inorder;
    my $sub;
    $sub=sub{ 
              my $node=shift;
              $sub->($node->left) if $node->left;
              push @inorder,$node->value;
              $sub->($node->right) if $node->right;
            };
    $sub->($self);    # Added due to [dragonchild]s eagle eye
    return \@inorder;
  }
  [download]

• I often use dynamic scoping
• I often use pack, as well as s///e
• If it has more than a few alternations I usually write my regexes under /x
• I use return, and last/redo/next very often to reduce nesting depth of my code.
• I often use iterative algorithms instead of recursive algorithms
• When doing recursive data structures I usually use a wrapper type istead of a "pure" OO implementation

Im sure there is more to say but I think this is a good place to start...

---
demerphq

---

• Update:  
dragonchild noticed that I ommitted to call $sub so I added the missing line. Thanks dude.