Data commit

Task/Arrays/Perl/arrays-1.pl

@@ -0,0 +1,8 @@
+ my @empty;
+ my @empty_too = ();
+
+ my @populated   = ('This', 'That', 'And', 'The', 'Other');
+ print $populated[2];  # And
+
+ my $aref = ['This', 'That', 'And', 'The', 'Other'];
+ print $aref->[2];  # And

Task/Arrays/Perl/arrays-2.pl

@@ -0,0 +1,8 @@
+my @arr;
+
+push @arr, 1;
+push @arr, 3;
+
+$arr[0] = 2;
+
+print $arr[0];

Task/Arrays/Perl/arrays-3.pl

@@ -0,0 +1,5 @@
+ my @multi_dimensional = (
+     [0, 1, 2, 3],
+     [qw(a b c d e f g)],
+     [qw(! $ % & *)],
+ );