> perl -e '@a=(5,6,7); @array[1] = @a; print @array;'
5