my $aref = [1, 2, 3];
print Dumper $aref;