#!/usr/bin/perl
use warnings;
use strict;

use Test::More tests => 1;

my @array = do {
    no warnings 'qw';
    qw(one two, three four five, six);
};
is("@array", 'one two, three four five, six', 'same');