Perl อาร์เรย์ของอาร์เรย์ในวง

ฉันจะเพิ่มอาร์เรย์ในรายการอาร์เรย์ (อาร์เรย์ 2 มิติ) ใน perl ได้อย่างไร ตัวเลือกนี้ใช้ไม่ได้ / ตัวอย่าง:

@db ของฉัน;
$i ของฉัน = 0;
@สุ่มของฉัน;
ในขณะที่ ($ i < 10) {
    @สุ่ม = genNum(49, 6);
    @db[$i++] = @สุ่ม;
}

พิมพ์ $db[3][1] "\n";

ตกลง ฉันได้เปลี่ยนรหัสเล็กน้อยและดูเหมือนว่าจะดี:

@db ของฉัน;
$i ของฉัน = 0;
@สุ่มของฉัน;
ในขณะที่ ($ i < 10) {
    @สุ่ม = genNum(49, 6);
    พุช( @{$db[$i++]}, @สุ่ม);
}
$i = 0;
ในขณะที่ ($i < 10) {
        พิมพ์เข้าร่วม(", ", @{$db[$i++]}) "\n";

}