use strict;
use warnings;
use 5.012;

my $row1_ref = ['a', 'b', 'c'];
my $row2_ref = ['xx', 'yy', 'zz'];

my $data; 
push @$data, $row1_ref;
push @$data, $row2_ref;


use Data::Dumper;
say Dumper($data);

--output:--
$VAR1 = [
          [
            'a',
            'b',
            'c'
          ],
          [
            'xx',
            'yy',
            'zz'
          ]
        ];