perl：通过组合几个1D数组的多维数组

Question

我有多个一维数组-

@p=(0,1,1,2);
@q=(0,1,3,4);
@r=(0,2,1,5);

现在，我必须创建一个多维数组，其中包含多个数组，包括上面编写的数组。

my @array =   (
    'a' => [ 800  ],     #Written manually
    'b' => [ 'A', 'B' ], #Written manually
    'c' => 101,          #Written manually


    'p' => [0,1,1,2],  #Need to bring from the @p  
    'q' => [0,1,3,4],  #Need to bring from the @q
    'r' => [0,2,1,5],  #Need to bring from the @r
);

在@array内，'a'，'b'，'c'是手动编写的（或已经可用）。现在，我如何才能将这些@p，@q和@r放入@array内以形成所需的多维数组？