Perl,取消引用引用引用数组

在下面的Perl代码中,我希望引用数组中的数组引用

#!/usr/bin/perl

use strict;
use warnings;

my @a=([1,2],[3,4]);

my @b = @$a[0];

print $b[0];

但是它似乎不起作用。我希望它输出1。

@a 是一个引用数组

@b 是 $a[1] 取消引用(我想)

有什么问题吗?