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

my @arr;
@arr = ( [1, 2], {foo => [3, 5]}, [\@arr, "bar"] );

print Dumper(\@arr);