This will get you through the critic...

... and break your code.

use Test::More tests => 1;

use English '-no_match_vars';

my $LIST_SEPARATOR = '|';
my @items          = qw( foo bar baz );

my $interpolated   = "@items";
is( $interpolated, 'foo|bar|baz', 'somehow package globals and lexical
+s merged' );
[download]