4.3. Swap two values

Example 4-2. examples/arrays/lists.p6

#!/usr/bin/perl6

say "Type in two values:";
my $a = readline;
my $b = readline;

($a, $b) = ($b, $a);
say $a;
say $b;