$ 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|"'
|10 11 12 13 14|