use warnings;
use strict;
use Data::Dumper;

sub get_data {
    my @AoA;
    @AoA = (
        [(1, 2)],
        [(3, 4)],
    );
    #print Dumper(\@AoA);
    return \@AoA;  
}

my $alldata = get_data();
print Dumper($alldata);

__END__

$VAR1 = [
          [
            1,
            2
          ],
          [
            3,
            4
          ]
        ];