We can write multidimensional array in Perl as follows :

    my @array1 = (1, 2, 3, 'four');
    my $reference1 = \@array1;
    my @array2 = ('one', 'two', 'three', 4);
    my $reference2 = \@array2;

    my @array = (\@array1, \@array2);

    print $array[1]->[0];

The output will be as follows :

one