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


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