perl -E "@a1=qw(1 2 3); @a2=qw(a b c d e); say for (@a1 & @a2)"

1

perl -E "@a1=qw(1 2 3); @a2=qw(a b c d e); say for (@a1 , @a2)"

1
2
3
a
b
c
d
e