#!/usr/bin/perl
# your code goes here

use strict;
use warnings;

my $z = [];
$z->[0] = $z;
$z->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[21312] = 5;
$z->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0]->[0] = 1;

print $z->[0], ", ", $z->[21312], "\n";