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

my @row = ( [1] ) x 3;

print @{$row[2]}, "\n";
print @{$row[3]}, "\n";