programming-examples/perl/Statement/Mix $_ and foreach statement.pl

#!/usr/bin/perl -w

use strict;

my @a = qw(hello world good bye);

print "[$_]\n" foreach @a;