http://www.perlmonks.org?node_id=195957

Which and why?

while (<>) { ... } or while (my $line = <>) { ... }?

-w or use warnings;?

sub CONSTANT () { ... } or use constant CONSTANT => ...;?

my ($foo, $bar) = @_; or my $foo = shift; my $bar = shift;?

for (@array) { ... } or foreach (@array) { ... }?

print 'foo'; or print('foo');?

'simple string' or "simple string"?

glob '*' or <*>?

readline *FOO or <FOO>?

for (keys %foo) { $_ and $foo{$_} } or while (my ($key, $value) = each %foo) { $key and $value }?

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.