Data commit

Task/Variables/Perl/variables-1.pl

@@ -0,0 +1,6 @@
+sub dofruit {
+  $fruit='apple';
+}
+
+dofruit;
+print "The fruit is $fruit";

Task/Variables/Perl/variables-2.pl

@@ -0,0 +1,10 @@
+my $x = @a;                   # Scalar assignment; $x is set to the
+                              # number of elements in @a.
+my ($x) = @a;                 # List assignment; $x is set to the first
+                              # element of @a.
+my @b = @a;                   # List assignment; @b becomes the same length
+                              # as @a and each element becomes the same.
+my ($x, $y, @b) = @a;         # List assignment; $x and $y get the first
+                              # two elements of @a, and @b the rest.
+my ($x, $y, @b, @c, $z) = @a; # Same thing, and also @c becomes empty
+                              # and $z undefined.

Task/Variables/Perl/variables-3.pl

@@ -0,0 +1,3 @@
+use strict;
+our $fruit;             # declare a variable as global
+our $veg = "carrot";    # declare a global variable and define its value

Task/Variables/Perl/variables-4.pl

@@ -0,0 +1,10 @@
+$fruit="apple";    # this will be global by default
+
+sub dofruit {
+  print "My global fruit was $fruit,";    # use the global variable
+  my $fruit="banana";                      # declare a new local variable
+  print "and the local fruit is $fruit.\n";
+}
+
+dofruit;
+print "The global fruit is still $fruit";