my @a;
for (qw/a b c/) {
   push @a, $_;
   print (join ', ', @a), "\n";
}

##</code><code>##

a

##</code><code>##

a        # output from previous iteration
a, b     # output from current iteration