use Data::Dumper;

my @array_rev;
@{$array_rev[1]}=(1,2,3);
print Dumper \@array_rev;
__END__
$VAR1 = [
          undef,
          [
            1,
            2,
            3
          ]
        ];