perl -Mstrict -E 'my @x=(1..2); my @y=(3..4); say join "->", (@x,@y)'

1->2->3->4