#/usr/bin/perl

use strict;
use warnings 'all';
use Data::Dumper;

my $array0 = [];
my @array1 = qw(foo bar beckstein stinkt);

my $arr2ref = \@array1;

push @$array0, $arr2ref;
print Dumper $array0;