perl -E'@a=(1,[]);@b=(1,[]);print @a~~@b'
1