Initial data commit

Task/Sort-three-variables/Perl/sort-three-variables.pl

@@ -0,0 +1,31 @@
+#!/usr/bin/env perl
+use 5.010_000;
+
+# Sort strings
+
+my $x = 'lions, tigers, and';
+my $y = 'bears, oh my!';
+my $z = '(from the "Wizard of OZ")';
+
+# When assigning a list to list, the values are mapped
+( $x, $y, $z ) = sort ( $x, $y, $z );
+
+say 'Case 1:';
+say "  x = $x";
+say "  y = $y";
+say "  z = $z";
+
+# Sort numbers
+
+$x = 77444;
+$y = -12;
+$z = 0;
+
+# The sort function can take a customizing block parameter.
+# The spaceship operator creates a by-value numeric sort
+( $x, $y, $z ) = sort { $a <=> $b } ( $x, $y, $z );
+
+say 'Case 2:';
+say "  x = $x";
+say "  y = $y";
+say "  z = $z";