Help for this page

Select Code to Download


  1. or download this
    my @a;
for (qw/a b c/) {
   push @a, $_;
   print (join ', ', @a), "\n";
}
  2. or download this
    a
  3. or download this
    a        # output from previous iteration
a, b     # output from current iteration