use strict; use warnings;
use Test::More tests => 2;

my $str = 'foo bar baz';
my @arr = ('foo', 'bar', 'baz');

is_deeply( [ qw/foo bar baz/ ], [ @arr ] );
is_deeply( [ qw/$str/ ], [ @arr ] );