#!/usr/local/bin/perl
use strict;
use warnings;
use utf8;
use open ":utf8";
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my @fav_game = ('ruiner', 'ps4/steam', 2017, '$19.8');
($name, $hard, $year, $price ) = my @fav_game;

print $name;