Create arrays.pl

Perl example
Merge pull request #2 from regexer/patch-1

Create arrays.pl