Thus, you can fix the issue in a couple ways. Explicitly forcing scalar context:

use Test::More tests=>1;

my @arry1 = (scalar 'string' =~ m/str/, 'second');
my @arry2 = (scalar 'string' =~ m/foo/, 'second');
is $arry2[1], $arry1[1];
[download]

or choosing your false value (and implicitly forcing scalar context)

use Test::More tests=>1;

my @arry1 = (('string' =~ m/str/ or 0), 'second');
my @arry2 = (('string' =~ m/foo/ or 0), 'second');
is $arry2[1], $arry1[1];
[download]