#use strict;
#use warnings;

@ARRAY = qw(foo bar baz);
@LIST  = qw(some new items);
   
for $value (@LIST) {
   $ARRAY[++$#ARRAY] = $value;
}

print $_,$/ for @ARRAY;

__END__
foo
bar
baz
some
new
items