@{$hr->{a}} = [qw(foo bar baz)];

@{$ar->[0]} = [0 .. 9];