perl -le '@x=qw(a b c);@y=qw(a b c d); $f=(@x,@y); print $f'
4