use strict;
use warnings;

my $dwarfs = [ qw(Doc Grumpy Happy Sleepy Sneezy Dopey Bashful) ];

print "@{$dwarfs}\n";
print "@dwarfs\n";