if (not defined $a[0]) {
    $a[0] = [];
};
push @{$a[0]}, "foo";