use Data::Dumper;

use strict;
use warnings;

my @a = ((1,2,3), (4,5,6));
print $a[3];