use warnings;
use strict;
use v5.10;
do
{
my $variable = 22;
my $refVar = \$variable;
$$refVar = 25;
say "Look at that! \$variable now equals $variable";
my $two = 2;
my ($sum, $diff) = sum_and_diff(5, $two);
say "the sum of 5 and $two is $sum";
say "and the difference is $diff";
};
sub sum_and_diff {
my ($lhs, $rhs) = @_;
return $lhs + $rhs, $lhs - $rhs;
}