Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Mix $_ and foreach statement
#!/usr/bin/perl -w
use strict;
my @a = qw(hello world good bye);
print "[$_]\n" foreach @a;