in reply to comments and qw

You could play bareword roulette: 
use strict;
no strict 'subs';

do_something($_) for (
  foo,   # comment
  bar,
  baz,
  );

[download]

Replies are listed 'Best First'.
Re^2: comments and qw
by Roy Johnson (Monsignor) on Feb 13, 2006 at 15:44 UTC
    You could also use => to effectively qw all the list members. (I use keywords here to show that there's no roulette being played. They're interpreted as strings.) 
    do_something($_) for (
  exit => # comment
  sub =>
  exec =>
  do_something => # It's a string here, not a sub call!
);

sub do_something {
  print "Got ($_[0])\n";
}

    [download]
    Keep in mind that qw and => have somewhat different rules about what they quote: qw effectively quotes each run of non-whitespace; => quotes only runs of "word" (alpha-num-underscore) characters, and interprets everything else.
    Caution: Contents may have been coded under pressure.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom