swap Perl $a = 1; $b = 2; print "a = ", $a, "\n"; # a = 1 print "b = ", $b, "\n"; # b = 2 print "\n"; ($a, $b) = ($b, $a); print "a = ", $a, "\n"; # a = 2 print "b = ", $b, "\n"; # b = 1 Ruby a = 1 b = 2 print "a = ", a, "\n" # a = 1 print…