my $ref = [];
@a_list = ([[], []], [[], []], [$ref, $ref]);