my @array1 = qw ( Foo Bar Foobar Barfoo 1 2 3 );