Help for this page
>perl -wMstrict -le "my @a = qw(foobar barfoo foobaz bar foobor); ... 'oba' 'oba' 'obo' 'oba' 'barfoo' 'oba' 'bar' 'obo'