Create arrays.pl

Perl example