Perl function: qw

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

my @vec = qw(one two three four five);
print join " - ", @vec;
print "\n";
#
#  one - two - three - four - five