#!/usr/local/bin/perl
use warnigs;

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

print $name;