Array Perl

@array = (
    ["apple", "orange"],
    ["asparagus", "corn", "peas"],
    ["ham", "chicken"],
);
$array1ref = $array[1];
print ${$array1ref}[1];
print ${array[1]}->[1];
print $array[1]->[1];
print $array[1][1];