my @names = map {                    # 1, 3
    $i > 6                           # 2, 4
       ? push(@names,$input2arr[$i]) # 1, 2
       : $i++;                       # 2
} @input2arr;

##</code><code>##

@x = map {
  $r = push(@x, $_);
  print(join(",", @x),"\n");
  $r;
} qw(a b c d e);
print join(",", @x), "\n";
__DATA__
a
a,b
a,b,c
a,b,c,d
a,b,c,d,e
1,2,3,4,5