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

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

my ($Title, $Platform, $Gene) = qw(Ruiner PS4 Action);
print "$Title\n";