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

##</code><code>##

2. -w or use warnings;?

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

7. 'simple string'; or "simple string"? 

##</code><code>##

8. glob '*' or <*>? 

##</code><code>##

9. readline *FOO or <FOO>? 

##</code><code>##

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