$ perl -E 'my @l = qw/ac qw/; for (@l) { say if /a/../c/ }'
ac
$ perl -E 'my @l = qw/ca qw/; for (@l) { say if /a/../c/ }'
ca