my @array = qw ( foo bar foobar barfoo 1 2 3 );