do_something($_) for qw(
  foo
  bar
  baz
  );

##</code><code>##

do_something($_) for qw(
  foo
  bar  # introduced November, 2005
  baz  # deprecated - remove by December, 2006
  );

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

do_something($_) for qw(
  foo
  bar  # introduced November, 2005
  baz  # deprecated - remove by December, 2006
  );

print "-----------------\n";

do_something($_) for words( <<WORDS );
  foo
  bar  # introduced November, 2005
  baz  # deprecated - remove by December, 2006
WORDS


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

sub words
{
    my @lines = split /\n/, shift;
    s/#.*$// for @lines;
    map { split ' ', $_ } @lines;
}