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

my @aoa = ( [1, 2, 3],
            [4, 5, 6],
            [7, 8, 9] );
splice @aoa, 1, 1;

print Dumper \@aoa;