#!/usr/bin/perl
use strict;
use warnings;

my @food = (
        'Bokke',
        'Poot',
);

my @athletes = (
        'James',
        'Brown',
);

my @AoA = (
        \@food,
        \@athletes,
);

print ${$AoA[0]}[0];
print $AoA[0]->[1];
print "\n";

my $ref = \@AoA;

print ${$ref->[0]}[0];
print $ref->[0]->[0];