Select Code to Download

sub foo { $x = 10 }
sub bar { $x = 20 }
$x = 30;
$y = (foo(), bar(), $x);
print "y=$y\n";