$ perl -E 'my @x = (0..4); my @y = (0,1); my @z; @z = @x if $x[1] == $y[1] || $x[3] == $y[1]; say "|@z|"'
|0 1 2 3 4|
$ perl -E 'my @x = (10..14); my @y = (0,1); my @z; @z = @x if $x[1] == $y[1] || $x[3] == $y[1]; say "|@z|"'
||