#!/usr/local/bin/perl
use strict;
use warnings;

my $a = "alpha";
my $b = "omega";
($a, $b) = ($b, $a);
print "($a, $b)\n";