Try it

@cars   = qw# mazda saab chevy #;
@small  = ();
@big    = 1..1e4;
@things = (@big, undef, (), @big);
print "$#things\n";